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SÅ LYKKEDES DET IGEN! 


D et er ikke let at finde en pas- 
sende grimasse, når vi skal for- 
klare vore medlemmer hvorfor 
de har måttet vente så længe på 
deres blad. Når vi alligevel føler 
at vores samvittighed ikke er helt 
sort skyldes det ikke mindst, at vi 
har gjort alt hvad der var menne- 
skeligt muligt for at få produceret 
bladet så hurtigt som muligt og 
den kendsgerning at det kun kos- 
ter os og ikke læserne udgifter, 
med det betalingssystem vi har. 
Ingen skal forny deres medlem- 
skab før de har fået nummer 10 
af det ny Amstrad Bruger Blad. 
Dette gælder uanset om man har 
nydt godt af vores support og 
indkøbsservice, eller har været 
en flittig bruger af vores databa- 
se siden vor opstart i foråret. Alt 
dette har været gratis, indtil det 
første blad lå i postkassen. 


En af grundene til forsinkelsen, 
og ikke den mindste, har været 
det enorme behov for hjælp og 
information der eksisterede i Am- 
strad Bruger Gruppen. Vore tele- 
foner har ringet uafbrudt fra tidlig 
morgen til sen nat og vores post- 
kasse har bugnet med breve fra 
brugere med problemer, mangel 
på software, reparationer eller en 
ny maskine. Support er på det se 
neste blevet en mangelvare i Am- 
strads verden. Vi har gjort hvad 
vi kunne og det bliver vi ved 
med, ingen Amstrad bruger skal 
føle sig alene og uden hjælp. Vi 
vil fortsat sørge for at der findes 
programmer, tilbehør og maski- 
ner til Skandinaviens Amstrad 
brugere. 


Med starten på vores bruger- 
gruppe ABC Trekanten i Frederi- 
cia og ABC Storstrøms Amt godt 
på vej, har vi nu påbegyndt plan- 
lægningen ABC København og 
ABC Esbjerg. Samtidig har vi fået 
en medarbejder mere her på kon- 
toret, så staben nu består af Laila 
Tommy og Poul. 


Med hjælp fra de andre ABC 
grupper, kan vi nu love at bladet 
for fremtiden kan komme regel- 
mæssigt, næste gang den 15 de- 
cember. 


For at kunne overholde dette, vil 
vi bede medlemmerne om at re- 
spektere de telefontider vi har sat 
for henholdsvis HOTLINE og al- 
mindelig ekspedition. 


Å lle spørgsmål vedr. program- 
mering og anvendelse af maski- 
ner og programmel(undtaget 
hastende erhvervs relaterede pro- 
blemer)kan stilles på vores HOT- 
LINE tirsdag og torsdag fra kl.16 
til 18 


Øvrige ekspeditioner så som re- 
parationer, informationer, bestil- 
linger af soft og hardware, kan 
ske hver dag fra mandag til fre- 
dag kl.10 til 17, lørdag 10 til 12. 


På den måde får vi tid til at lave 
vores blad og tid til at yde den 
service som vi lægger så stor 
vægt på at alle skal kunne nyde 
godt af, især da vi for nuværende 
sandsynligvis besidder den stør- 
ste ekspertise på Amstrad områ- 
det. 


Med håb om et fortsat godt Am- 
strad år 


Poul Caly (RED. ) 


Årets bedste gave til Joyce brugere 


Distribueres i Skandinavien af Amstrad Bruger Cluk 


PC-SHOW-EARLS COUR'T 


Vi har set lidt på compu- 
tershows i den forgangne 
tid. Et af dem, var udstillin- 
gen i Earls Cour't i en- 
gland. 

Det umiddelbare indtryk, 
var en ret forvirrende ud- 
stilling, som var tilrettelagt 
med henblik på at man 
skulle få set så mange for- 
skellige ting som muligt. 

Vi måtte dog konstatere, at 
alle mere eller mindre 
kendte leverandører var til 
stede og at det var muligt, 
at finde dem efter en hånd- 
guide. Det tog dog en vis 
tid, at finde frem til den rig- 
tige, netop på grund af 
den specielle organisation 
af standene. Men det lykke- 


des os, at besøge de fles- 
te af dem der var interes- 
sante for os. 

Det vi måtte sande var 
dog, at der ikke var noget 
specielt nyt at hente, og at 
det mere eller mindre var 
en salgsudstilling. Dog var 
der fra Amstrad's side en 
del nyheder, som var inter- 
essante. Det vil dog sige 
interessante for dem der 
spekulerer i at anskaffe sig 
en IBM-AT kompatibel ma- 
skine, som ligger i den 
professionelle ende af 
markedet vurderet ud fra 
pris og ydelse. 

Amstrad presenterede de- 
res nye serie af 

PC-AT'ere, so de lancerer 
i forbindelse med at slå 
ind på det professionelle 


erhvervs-marked. 

Den nye serie hedder : 
PC2000 serien, og henven- 
der sig mest til erhvervsli- 
vet. I serien er der dog en 
enkelt PC-XT der hedder 
PC2086, som er baseret 
på en 8MHz 8086 proces- 
sor. Udover den er der en 
model der hedder 
PC2286, som er en 12 
MHZ 80286 baseret maski- 
ne med 1Mb RAM leveret 
med en MS-DOS 4.0. Den 
sidste og sværeste i deres 
nye serie hedder PC2386, 
og er baseret på en 
20MHz 80386 CPU og le- 
veres med 4Mb RAM og 
dos 4.0. Fælles for maski- 
nerne er, at de leveres 
med VGA grafik-kort, og 
plads til en nummerisk pro- 


cessor. Det nye design de 
har valgt, er meget ele- 
gant, og udelukkende for- 
beredt på at der bruges 
3.5" floppy- og hard-diske. 
PC 2086 har 3 XT udvidel- 
ses porte og de to andre 
modeller har 5. 

De leveres alle med AT- 
tastatur og Mus. 

Hvad monitor angår, kan 
man vælge i mellem fire 
forskellige, som alle er 
VGA compatible. Her kan 
vælges en 12" monocrom, 
en 14" farve, en 12" farve 
med en speciel høj dot/pi- 
xel opløsning og en 14" 
farve med samme høje 
dot/pixel opløsning (Dot ' 
pitch 0.28). 


(Fortsættes næste side). 


Med denne serie er det ty- 
deligt, at: AMSTRAD prø- 
ver at distancere fra deres 
image som leverandører 
til hobbyfolk, og mindre 
erhvervs virksomheder. 
Dette må vel betragtes 

" $om en slags sats, da der 
jo som :bekendt også på 

i "højere" planer er en stor 

- Konkurrence, og at der 
her er en lang række vele- 
tableret computergigan- 
ter, som er kendt for at 
deres udstyr er supporte- 
ret med en relativ kvalifice- 
ret stab til afhjælpning af 
problemer og rådgivning i 
forbindelse med anskaffel- 
se. Her har AMSTRAD i 
england så indført en ny 
stil, som bygger på at det 
kun er forhandlere af en 
vis størrelse, der må få 
lov til at forhandle disse 
produkter. Det er nok for- 
trinsvis forhandlere der i 
forvejen besider den for- 
nødne kvalifikation i for- 
bindelse med levering af 
netværker m.v. Hvordan 
dette bliver tilrettelag i 
Danmark af den Danske 
importør er endu ikke of- 
fentlig fastsat, men der 
tegner sig foreløbig en 
tendens til at det samme 
princip vil blive fulgt her. 
Om AMSTRAD folkene 
kan leve op til kravene så- 
vel i England som i Dan- 
mark er sikkert ret afgør- 
ende for om mærket Am- 
strad, skal til at regnes 
med i blandt de profesio- 
nelles rækker. Grunden til 
disse aspekter, er at den 
prispolitik som man har 
fastlagt for PC2000 serien 
betinger en professionel 
backup både fra leveran- 
dører og forhandlere. Det- 


te skal ses i lyset af at pri- 
serne kommer til at ligne 
de andre producenters, 
dog stadig med den for- 
skel at AMSTRAD's maski- 
ner har lidt flere faciliteter 
som er gode-hvis man 
har behov for det. 

Hvad levering angår, kan 
man regne med at se de 
første på markedet i star- 
ten af 1989. 

En ekstra lille tilføjelse til 
PC2000 historien, er at 
hvis man ønsker acces til 
de "gamle" 5.1/4 tomme 
formater, er maskinen for- 
synet med en port i siden 
der tillader tilslutning for 
et eksternt 5 1/4" drev. 


Af andre nyheder, skal 
nævnes at AMSTRAD og- 
så nu producerer eksterne 
2400 BAUD modems, 
men det er uvist om den 
Danske importør DINA- 
MICRO vil markedsføre 
dem. Det er heller ikke 
muligt på dette tidspunkt 
at estimere en eventuel 
pris på disse hvis de skul- 
le blive lanceret i Dan- 
mark. 


Således ser den nye 
Sinclair PC200 ud. 
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Hvad angår AMSRAD's 
køb af Sinclair koncernen, 
syntes ikke at komme til 
udtryk i Danmark i og 
med at den danske impor- 
tør af Amstrad ikke impor- 
terer disse produkter. Det 
eneste der i øjeblikket er 
at få af Sinclair produkter- 
ne i danmark, er 288 com- 
puteren også kaldet 
Cambridge computeren 
som importeres af Dan- 
soft. Det vides ikke om de 
også vil sætte sig på den 
nye prisstærke Sinclair 
PC200, som i England har 
en pris der starter med 
299 pund. Det usædvanli- 
ge i denne computer, er 
at man kan tilslutte den til 
et almindeligt T.V. apparat 
eller en monitor. Ideen 
med tilslutningen til TV'et 
er nok ikke gangbar i Dan- 
mark set ud fra Dansker- 
nes kvalitetskrav vedrør- 
ende skarphed i billedet. 
Data'ene for PC200 er 
dog ganske udmærkede. 
Den leveres med en 8MHz 
8086 processor, 512 Kb 
RAM, CGA, TV' modula- 
tor, parallel og seriel port, 
AT-tastatur, 3 1/2 " floppy 
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drev, tilslutning for ekstern 
5 1/4 og 3 1/2 tomme flop- 
py drev desuden er der 
plads til to fuldlængde 
kort. Maskinen leveres i et 
sort Design. 


Det sluttelige indtryk af ud- 
stillingen, er som man må- 
ske kunne have ventet, at 
producenterne stadig ikke 
tør løbe fra standarden og 
udvikle noget nyt. Dette 
hænger nok sammen med 
at branchen som sådan i 
øjeblikket er fantastisk 
presset af priskrige, og re-. 
klameudgifter, som aldrig 
før. Eksempelvis kan næv- 
nes IBM's kraftige mar- 
kedsføring af PS2/30 
system som nu tilbydes til 
under den halve pris. Det- 
te kunne tyde på at PS2 al- 
lerede må betegnes som 
et "flop". Disse forhold er 
med til at forskrælle folk, 
som så stiller sig afventen- 
de hvilket medfører nye 
priskrige. Det er dette der 
må betegnes som "Den 
onde cirkel"- i computer- 
branchen. 


TR; 


SPIL-ANMELDELSER 


Skate Rock 


Spillet, der kan få selv de menne- 
sker der stiller meget store krav 
til computerspil, ud af starthuiler- 
ne, for at få nogle fornøjelige ti- 
mer. Der er hele tiden nye udfor- 
dringer, sjove banesammensæt- 
ninger, og man kan til tider sy- 
nes at de baner der kommer 
frem er uoverskuelige. Men efter 
at have spillet dem et par gange, 
kan man pludselig se en ende 
på det. Selve spillet går ud på, 
at man skal igennem 10 baner, 
der er opstillet rundt om i byen. 
Mens du kører skal du samle 8 
flag, og ellers gennemføre så 
mange baner på den korteste 
mulige tid. Hvis du er en af dem 
der kan gennemføre dem alle, vil 
du blive medlem af "The Slime 
Rat Skaters" de slimede Rotte 
skatere. Vil du med i toppen, el- 
ler er du bare en af de hersens 
legetøjsskatere. Der er forskelli- 
ge ting man kan gøre, før man 
starter på et nyt spil. Hvis man 
har været så heldig at gennemfø- 
re en, eller flere baner, kan man 
starte hvor man kom til, det gø- 
res ved at vælge meliem bane 1 
til, hvis man kom så langt, 10. Er 
du en rigtig skrap skater, kan du 
også stramme hjulene. Så kører 
du hurtigere, det er en fordel da 
man kører på tid, men en ulem- 
pe, da det går temmelig stærkt. 
Spillet er et one player only, og 
et joystick only, men det gør nu 
heller ikke så meget, for så kan 
man i ro og fred sidde og hygge 
sig med det. 


Programnavn 3 
Skate Rock 


Programtype 


Stimulator (skateboard) 


Producent 
Bubble Soft 


Maskine(r) i 
Alle CPC'ere 


Medie(r) ; 
Bårid 


Vejl. Pris 
Vides ikke. 


ide 
75 % 


Grafik 
75 % 


Lyd 
80 % 


Betjening 
90 % 


Vedholdende værdi: 
90 % 


Vejledning 
15% 


Pris/Kvalitet 
75 % 
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Worid Games 


World Games er ligesom Sum- 
mer & Winter Games, bygget op 
af fler "spil" (sportsgrene). Ergo 
er der nogle der foretrækkes 
frem for andre. Der er 
vægtløftning fra Rusland, hop på 


skøjter over tønder fra tyskland, 
udspring fra klippe fra Mexico, 
slalom fra Frankrig, balance- 
gang på træstamme fra Canada, 
tyreridning fra USA, træstamme- 
kast fra Skotland og sumobryd- 
ning fra Japan. 


Man må nok sige at slalom er en 
af de grene der fænger mest. 


Det hører nok også med til no- 
get af det nemmeste. Man skal 
kun vride joysticket fra side til si- 
de, alt efter hvilken side skiløbe- 
ren skal til. Spillet krydret med 
flere sjove indslag, f.eks. vægt- 
løfteren der går igennem gulvet 
hvis han holder stangen for læn- 
ge oppe, tøndehopperen der ry- 
ger igennem isen, en haj der 
kommer svømmende når den 
ene af de to personer på træs- 
tammen er faldet i vandet 0.s.v. 


Hvis man går efter at købe spil 
med god grafik og god musik er 
dette IKKE det man skal bruge 
penge på. Det er nemlig ikke just 
Bach, Beethoven eller Bernstein 
der har skrevet noget af det og 
bevægelser i forholdet til de en- 
kelte hastigheder er heller ikke 
noget at råbe hurra for. 


Alt i alt er det dog fængslende 
nok til at man gider tænde for 
det ca. en gang om dagen for at 
slå sine egne rekorder.Hvad de 
tekniske ting angår kan man væl- 
ge at udføre alle grene, nogle 
grene eller en enkelt gren af gan- 
gen. Det er også muligt at redefi- 
nere tasterne! 


Programnavn 


— World Games 


Programtype 
Sport 


Producent : 
Epyx 


Maskine(r) 
Alle CPC'ere 


Medie(r) 
Bånd/Disc 


Vejl. Pris 
Vides ikke. 


ide : 
75 % 


Grafik e 
75 % 


Lyd : 
45 % 


Betjening 
60 % 


Vedholdende værdi: 


80 % 


Vejledning ; 
85 % 


Pris/Kvalitet = 
0% 
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CRYZOR 


Dette er lige som mange andre 
spil fra Ocean, lidt af en lækker 
bidsken. Der er en god grafik, 
faktisk en MEGET god grafik. 
Det har en lyd, der fuldt ud opfyl- 
der de til spillet krævende for- 
hold. Cryzor er ikke alene navnet 
på spillet, det er også navnet på 
vores hovedperson, Lance Cry- 
zor hvis opgaved det er at brin- 


ge vores Jord tilbage til ordnede 
forhold. Beboerne på planeten 
Suna har indfiltreret Jordens for- 
svarsystem. De har fået godt fat i 
en ukontroleret del af Jorden 
hvor de har fremstillet en Atmo- 
sfære Processer Plante (APP) 
hvilket der giver dem mulighed 
for at kontrolere vejret bå Jor- 
den. Deres plan er at frembringe 
en ny istid, og derpå tage fuid 
kontrol over Jorden og dens re- 
sourcer. Det er så her Lance Cry- 
zor kommer ind i billedet, han er 
medlem af Jordens Samlede 
Forsvar (JSF). De har opdaget 
Suna's grimme hensigter, og det 
bliver nu Lance Cryzor's opgave 
at destruere APP. Spillet er op- 
bygget i tre sektioner. I de to 
første skal du nedkæmpe fjen- 
dens ydre forsvarsstillinger, og i 
den sidste skal du ødelægge 
den fjentlige APP og deres kom- 
mandoskib. Men vejen til det sid- 
ste er fuld af farer og dirty tricks! 
Du kan på intet tidspunkt føle dig 
sikker, hvis der ikke kommer so!- 
dater stormende efter dig, bliver 
du beskudt af indtil flere autom- 
atiske kanoner og forsvarsmeka- 
nismer. Meget passende kan 
man sige hvis det blinker skyd 
det, blinker det ikke, så skyd det 
alligevel. Man kunne godt savne 
muligheden for selvdefinerbare 
taster, men de foruddefineret lig- 
ger meget godt i hånden, til dem 
der har to joystick og split!ed- 
ning, er der for en gang skyld 
også mulighed og som noget 
ganske fikst, har Ocean lagt en 
lille reklame demo ind ti! sidst på 
side B (båndversion). Der ligger 
Combat School. Den kar: du fin- 
de hvis du nulstiller din båndop- 
tager og spoler frem til 200. 


Programnavri 
Cryzor 


Programtype 


Arcade 


Producent 
Ccean/Konami 


Maskine(r) > 
Alle CPC'ere 


Medie(r) : 
Bånd / Diskette 


Vejl. Pris > 
98 / 178 


Ide 
80 % 


Grafik i 
95 % 


Lyd 
90 % 


Betjening i 
90 % 


Vedholdende 
75 % 


værdi: 


Vejledning 
100 % 


Pris/Kvalitet 
100 % 
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Har du skrupler 7??? 


Scruples er en form for 
mastergame (spørgsmålsspil), 
hvor alle spørgsmålene dog har 
en eller anden form for moralsk 
eller lignende bi-smag. Det er al- 
letiders for en totalt skruppelløs 
person som undertegnede. For 
eksempel kan spørgsmålet lyde 
således: Naboens hus skal laves 
om til et hus for syv handicappe- 
de børn. Vil du støtte en under- 
skriftindsamling mod det ? Hvad 


skal man så svare (Yes, No eller 
Depends (det kommer an på)). 
Jeg prøvede ar svare ja, hvoref- 
ter jeg fik 4 muligheder for be- 
grundelsen. Jeg prøvede at spil- 
le tough guy, og gav begrundel- 
sen: Ja, for ellers vil deres køres- 
tole vel bare spærre for min ind- 
kørsel. Nu kan modspillerne så 
vælge at udfordre din holdning. 
Hvis der ikke er nogen der vil 
det, går spillet bare videre. El- 
lers skal udfordreren vælge en 
anden svarmulighed. Den som 
de fleste af spillerne så stemmer 
på vinder, og må aflevere et af 
sine spørgsmål til udfordre- 
ren/ham han udfordrede. Formå- 
let med spillet er at komme af 
med alle sine spørgsmål (dilem- 
makort). Personligt synes jeg det 
er alletiders spil! Ideen er ægte 
fed, grafikken god nok, men lyd- 
siden er som i Sultans Maze ube- 
skrivelig dårlig! Alt i alt et rigtig 
godt mastergame med knap 
3000 (tretusinde) spørgsmål (di- 
lemmakort). Kvis du har en sort 
form for humor eller simpelthen 
bare elsker Trivial Pursuit, så 
køb Scruples! 


Programnavn 
Scruples 


Programtype 


Mastergame 


Producent 
Leisure Genius 


Maskine(r) 
Alle CPC'ere 


Medie(r) 
Diskette 


Vejl. Pris : 
Vides ikke. 


Grafik 
80 % 


Lyd : 
10 % 


Betjening 
90 % 


Vedholdende 
100 % 


værdi: 
Vejledning 
100 % 


Pris/Kvalitet 
100 % 
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Boulder Dash 111,11,1,Wwe 
have a lift off 


BoulderDashsserien består 
af tre games, Nr. 1, 2 og 3. 
Smart ikke! De tre games har 
næsten samme grafik, lyd og 
ide. Formålet er at samle nogle 
stribede kugler, som efterhån- 
den som spillet skrider frem bli- 
ver sværere og sværere og svæ- 
rere og sværere osv. at få fat i. 
Nogle baner kan godt se p.. 
umulige ud, men de kan løses. 
(hvis du finder ud af hvordan så 
ring!!!). Grafikken er simpel, men 
lever op til sit formål (hvad er 
det). Lyden er om mulig endnu 
simplere, den siger dyt båt og 
gud hvor går det ????, Styrin- 
gen er god nok men som sæd- 
vanlig er de fastlagt på forhånd. 


HVORFOR EN I HEDE HULE 
HELV.. KAN PRODUCENTERNE 
IKKE FÅ IND I DERES LILLE HO- 
VED AT DER OGSÅ FINDES 
FOLK DER IKKE GIDER SPILLE 
PÅ JOYSTICK USTANDSELIGT 


DER AT GIVE EN MULIGHED 
FOR AT SPILLE KEYBOARD 
HAR DE FA... OGSÅ SELV DE- 


lave samme FEDE system som 
Design Design viser gang på 
gang!!! 


Spillet går som sagt ud på at 
samle disse hersens stribede ku- 
gler, men samtidig skal du pas- 
se på ikke at få sten i hovedet, 
brug både dem og det i stedet 
for. På nogle af de efterfølgende 
baner kommer også nogle kami- 
kazekamme, der for en hver pris 
prøver på at komme dig til livs. 
Hvis du eller en sten rammer 
dem sprænger de lige så pænt 
bare i luften. Til gengæld er de 
klar til indlæggelse på den lukke- 
de, kort sagt er de som terrori- 
ster, pissefarlige og lige så dum- 
me. 


Der er kun en ting raere at sige 
om Boulder Dash serien, køb 
mindst en af dem, dog gerne al- 
le tre, hvis du bliver helt vild i 
varmen. 


Programnavr: = 
Boulder Dash |-IIl 


Programtype 


Arcade 


Producent - 
First Star/MirrorSoft 


Maskine(r) ; 
Alle CPC'ere 


Medie(r) 
Bår:d 


Vejl. pris 
178,- 


ide 
75 % 


Grafik 

30 % 

Lyd | 3 
5% 


Betjening 
75 % 


Vedholdende værdi: 
95 % 


Vejledning 
50 % 


Pris/Kvalitet 2 
50 % 
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They build'em - 


we smash'em !! 


Ramparits. er en rimelig ko- 
pi af Coin-Up arcade-spillet, 
hvor hele formålet er at smadre 
så mange bygninger som muligt. 
Eller rettere sagt, de to hoved- 
personer : Sir Griswold & Sir 
Larkin, er blevet forhekset til to 
overdimensionerede kæmpema- 
rodører. For at hæve forhekse!- 
sen skal de fange the Evil One, 
den slemme unge mand der har 
forhekset dem. Men først skal de 
igennem Hostile Barons (den 
fjendtlige barons) slotte. Det er 
her ødelæggelsen kommer ind. 
Man kan enten spille 1-player el- 
ler 2-player. Når man spiller 1- 
player styrer man kun den ene, 
og hvis man spiller 2-p!ayer, sty- 
rer man selvfølgelig begge to. 
Grafikken er udemærket, og ly- 
den ganske god. Ideen er ny, 


men ikke specielt boligbevaren- 
de. Styringen er nogenlunde, 
man kan dog hurtigt blive træt af 
joysticket, da det kan være svært 
at ramme præcist nok til at krav- 
le op af bygningen. Til gengæld 
er brugen af keyboardet klart at 
foretrække. Desværre kan man 
ikke selv definere tasterne, og 
man kan heller ikke selv vælge 
om man vil spille på ioystick el- 
ler på keyboardet. Spiller 1 har 
joystick, og den evt. spiller 2 har 
keyboardet. Dermed basta, Futu- 
re Concepts ved hvad de vil. På 
trods af styringen kan man dog 
godt få et par timers sjov ud af 
det! (om dagen)! 


Programnavn ; 
Ramparts 


Programtype 


Destroy-arcade 


Producent 
Future Concepts 


Maskine(r) 
Alle CPC'ere 


Medie(r) 
Bånd 


Vejl. Pris 
188.00 


ide 
90 % 


Grafik 
80 % 


Lyd 
75 % 


Betjening E 
50 % 


Vedholdende værdi: 
80 % 


Vejledning 
25 % 


PCW/EXELENCE/ 
JOYCE 
NU KAN DET LADE 
SIG GØRE ! 


SERIEL/PARALLEL/KLOK 


Her er endelig fra AM- 
STRAD BRUGER CLUB 
interfacet mange har ven- 
tet på, Dette interface vil 
hjælpe dig til at holde 
styr på hvornår du har la- 
vet/ændret dine filer. Det 
kan kommunikere med 
vores database og med 
alle serielle enheder så 
som plottere, printere, 
andre computere og me- 
get mere. Det gør det 
muligt at tilslutte maski- 
nen til en alternativ prin- 
ter uanset om den er 
parallel eller seriel, hvii- 
ket kan give en mulighe- 
denforen 
bedre/hurtigere skriven- 
de printer. Interfacet er 
batteri opbakket, og kan 
hele tiden opgive den 
korrekte tid. Interfacet er 
nemt tilgængeligt til egne 
programmer, når man 
har behov for tidsmå- 
lingsfunktioner. 


Det bedste er prisen, 

hvis man sammenligner 
med AMSTRAD:'s eget in- 
treface - som bekendt 
koster Kr. 1585,-. 


Vi tilbyder vores mediem- 
mer følgende introduk- 
tionstilbud : 


RS232C-interface. 

PCW 8256/8512Kr, 895,- 
PCW 9512 Kr.1095,- 
( Priser er incl. moms) 


MC-SKOLEN 2 


Ja, så er mc-skolen tilbage igen. 
Før vi går igang skal jeg beklage 
de 'smuttere' der var i sidste nr. 
De værste af dem vil jeg forsøge 
at rette her: For det første var der 
røget en linie ud ved forklaringen 
af de binære talsystem. Der gives 
et eksempel på hvordan man kan 
beregne den decimale værdi af 
10110110. Den rigtige udregning 
skal være: (17128 + 0764 + 
1732 + 1716 + 078 + 1%4 + 
172 + 01) = 182. Den største 
værdi der derfor kan laves er 
128+64+32+16+8+4+2+1 

= 255. Det giver 256 forskellige 
værdier (nul regnes med). De an- 
dre smuttere var figur 2 og 3, der 
desværre blev sat i spalter. De 
skulle gerne være med nu som fi- 
gur a og b. 


Denne gang skal vi se på endnu 
flere instruktioner og et par nye 
registre. Desuden er den lovede 
assembler listet i dette nr., og her 
følger en lille beskrivelse af, hvad 
den kan. Alle programeksempler 
vil være listet så de kan tastet di- 
rekte ind i assembleren, men an- 
dre assemblere vil også kunne 
bruges. F.eks. bruger underteg- 
nede en LASER GENIUS, men 
også MAXAM o.m.a. vil kunne 
bruges med minimal omskrivning 
af programmerne. 


For dem der gerne vil igang med 
at taste, vil jeg lige forklare hvor- 
dan assembleren virker: Hoved- 

menuen består af fig. punkter: 1. 

Assemble source text 
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2. Assemble to tape/disc 
3. Assembler options 

4. Edit source text 

5. List text on printer 

6. Load/save text 

7. Execute program 

8. Directory 


9. Exit 


Punkt 1 assemblerer din kilde- 
text. Såfremt du har valgt 40000 
som startadresse vil programmet 
automatisk poke maskinkoden 
ind i hukommelsen, og du kan så 
prøve programmet med pkt. 7 


Punkt 2 er meget lig pkt. 1, men i 
stedet for at lægge koderne i me- 
moryen, lægges de ud i en fil. 
Hvis dit mc-program starter et an- 
det sted end adresse 40000 
(&9c40 i hex) bliver du nødt til at 
bruge dette punkt, og så forlade 
assembleren og loade dit mc- 
prog. ind i hukkommelsen med 
MEMORY startadr-1:LOAD 


Punkt 3 Giver dig nogle valgmu- 
ligheder i forbindelse med as- 
sembleringen. Du kan vælge 
startadresse, og om du vil have 
kildeteksten skrevet ud på skær- 
men efterhånden som den bliver 
oversat. 


Punkt 4 bringer dig over i edito- 
ren. Hvis du ikke har skrevet (el- 
ler load'ed) noget program 
endnu, vil skærmen være helt 


blank bortset fra en stjerne helt 
ude mod venstre. Denne stjerne 
markerer den aktuelle linie, og 
for at komme til at skrive noget 
skal du trykke space. Du kan nu 
skrive din instruktion (kun een på 
hver linie), og trykke return. Stjer- 
nen vil nu hoppe ned til næste li- 
nie, og du kan trykke space, og 
skrive videre. Når du er ved at 
skrive en linie, kan du godt bruge 
copy funktionen på din cpc. Hvis 
du vil rette i en linie kører du ba- 
re stjernen op eller ned til linien, 
trykker space, og skriver den nye 
linie. <SHIFT> <TAB> indsæt- 
ter en ny linie, 

<SHIFT> <DEL> sletter linien 
ud for stjernen, og 

<CTRL> <DEL> forlader edito- 
ren. 


Punkt 5 behøver vist ingen forkla- 
ring. 


Punkt 6 Gemmer eller henter din 
kildetekst. 


Punkt 7 starter dit MC-program. 
Du skal være opmærksom på, at 
hvis du har lavet en fejl i dit pro- 
gram vil maskinen muligvis gå i 
baglås, og så mister du dit pro- 
gram (medmindre du har gemt 
det først naturligvis). 


Punkt 8 Giver et katalog over 
disk'en 


Punkt 9 forlader programmet. 
Hvis du har rettet i din kildetekst 
uden at gemme det, vil assemble- 
ren selv forslå dig at gøre det. 


Fortsættes næste side ! 


MSTRAD BRUGER UB 


VIGTIGT: Når du har tastet as- 
sembleren ind skal du gemme 
den på enten bånd eller disc før 
du prøver den. Hvis der er fejl i 
indtastningen kan det være com- 
puteren går i baglås, og så er he- 
le dit arbejde spildt!!! 


Hvis du assembleren melder en 
fejl under assembleringen (du 
har f.eks. skrevet LS i stedet for 
LD), hopper den helt ud af pro- 
grammet. Du skal så trykke FO for 
at komme tilbage til hovedmenu- 
en. 


Efter denne lille beskrivelse af as- 
sembleren, vil vi gennemgå et 
par nye instruktioner. Det drejer 
sig om DEC og INC instruktioner- 
ne. Disse instruktioner trækker en 
fra, hhv. lægger en til det register 
de bruges på. Et eksempel på 
disse instruktioner kan du finde i 
fig. 1 


(Alle fig. findes efter artiklen 
(RED.) 


Programmet starter med at give 
A registret værdien 66 (66 svarer 
til B i ASCIl). Derefter udskrives 
karakteren (B). Så incrementeres 
a (a=a+1), og der udskrives 
nok en gang (C). til sidst decre- 
menteres a to gange (a=a- 
1:a=a-1), og der udskrives igen 
(A), og returneres. 


DEC og INC instruktionerne kan 
bruges BÅDE på 8-bits og 16- 
bits registrene. D.v.s. at både 
INC B og INC BC er gyldige. 


Hvis du vil prøve programmet i 
fig. 1, kan du selvfølgelig bruge 
assembleren, men hvis du ikke 
har fået tastet den ind endnu, kan 
du bare bruge HEX-loaderen fra 
sidste nr. 


Som du husker fra sidste gang, 
så er z80-procesoren bestykket 
med en hel del registre, nemlig 
A, B, C, D, E, H og L. Foruden 
disse registre, findes der en del 
mere eller mindre eksotiske spe- 
cialregistre. Det første specialre- 
gister og nok også det mest 
brugbare er F. F-registret er 
egentlig et 8-bits register, men i 
modsætning til de andre 8-bits re- 
gistre, kan man ikke flytte en be- 
stemt værdi over i det, eller 
kopiere værdier fra det. F-regi- 
stret (eller bare "F") bruges nem- 
lig helt anderledes end de andre 
registre. Det kan fortælle om de 
andre registres tilstande (f.eks 
om resultatet af den sidste instruk- 
tion er 0, og mange andre ting). 

F er organiseret som 8 'registre', 
hver på 1 bit, et såkaldt 'flag'. 
Navnet flag skyldes, at 1 bit kan 
være enten tændt (1 / flaget er op- 
pe) eller slukket (0 / flaget er ne- 
de). 


Figur 2 viser en oversigt over re- 
gistret. Bit numrene er egentlig 
underordnede, for når man bru- 
ger et flag (dvs. en bit i F) i en in- 
struktion referere man ikke til bit 
nummeret, men til navnet. F.eks 
JP Z,0 eller JP C,0 hvor Z hhv. C 
står for de respektive flag. Tag 
dig ikke af, at du ikke kender in- 
struktionerne, dem lærer du sene- 
re, og de er kun medtaget som 
eksempler på flagenes brug. Fla- 
genes navne er kun forkortelser 
for deres egentlige navn, og vi vil 
lige ganske kort gennemgå dem. 
Hvordan de enkelte flag virker vil 
blive forklaret hen af vejen, nogle 
i denne og andre i de efterfølgen- 
de artikler. Her følger flagenes 
fulde navne : S står for sign (eng. 
fortegn), Z står for zero (eng. 
nul), H står for halv-carry (eng. 
halv-mente), P/V hedder pari- 
tet/overflow, N flaget kan ikke bru- 
get til noget fornuftigt, så den 


kommer vi ikke til at beskæftige 
os med og C står for carry (eng. 
mente). I denne artikel vil vi kun 
bruge Z, og C flagene, så vi nø- 
jes med at se på dem. Z flaget in- 
dikerer om en instruktion har 
medført resultatet 0. Hvis dette er 
tilfældet bliver Z sat (1). C flaget 
viser om resultatet af en instruk- 
tion er for stort til at kunne være i 
det pågældende register. Dvs. at 
C sådan set virker som en ekstra 
bit (9. bit ved i forbindelse med 8- 
bitsregistre, og 17. bit hvis det 
drejer sig om et 16-bitregister.). 
Hvis du ikke forstår denne måske 
lidt svære forklaring så vent til ek- 
semplerne nedenfor. De skulle 
være ret nemme at gennemskue. 


Hvornår skifter flagene så? Det 
gør de efter udførelsen af en in- 
struktion. Det skal dog siges, at 
det ikke er alle instruktioner der 
påvirker flagene. RET instruktio- 
nen der jo bare hopper tilbage til 
basic påvirker f.eks ikke flagene. 
Det gør derimod DEC/INC, som 
vi lige har set på. Hvis A f.eks 
indeholder 1 og en DEC A bliver 
udført, vil Z blive sat, da resultatet 
bliver nul. Hvis A derimod inde- 
holder 255 (det højeste tal A kan 
indeholde), og der udføres en 
INC A instruktion, vil A indeholde 
0, og C flaget vil blive sat (her vil 
C flaget agere 9. bit (bit nr. 8), 
og således vise tallet 256 
(100000000 i binær)). Z flaget vil 
også blive sat, for det egentlige 
indhold af A bliver jo nul. 


De mest brugte flag er helt sikkert 
C og Z, men en del af de andre 
bruges også nu og da. 


Fortsættes næste side. 
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Efter denne måske lidt svære gen- 
nemgang af flagene vil vi se på 
et par simple, men yderst anven- 
delige instruktionerne. Det drejer 
sig om JP og JR instruktionerne. 
JP står for JUMP (eng. hop), og 
JR står for JUMP RELATIVE (eng. 
hop relativt). Syntaxen for intruk- 
tionerne ses på figur 3. Lad os 
starte med JP. Denne instruktion 
hopper ganske simpelt til adres- 
sen svarende til det word, der an- 
gives (nn). D.v.s. at JP &9c40 vil 
hoppe til adresse &9c40 (40000 i 
dec.). Den anden intruktion hop- 
per relativt, d.v.s. at den hopper 
så og så mange adresser (d) 
frem eller tilbage i forhold til den 
aktuelle adresse. Nu vil du sikkert 
spørge dig selv hvordan z80 kan 
vide om du vil hoppe frem eller 
tilbage, og det er her, at det mys- 
tiske "d' kommer frem. ”d” betyder 
nemlig "en byte der er udtrykt to- 
komplementært'. Tokomplemen- 
tær-metoden er noget man 
bruger når man vil lave en nega- 
tiv værdi. Princippet er, at man 
bruger bit 7 til at vise fortegnet 
(positivt=0, negativt=1). Det vil 
sige, at det ikke er muligt at have 
positive værdier der er større end 
127, og at man heller ikke kan ha- 
ve negative værdier der er min- 
dre end -128. 


Hvis du føler dig meget forvirret 
nu, så skal du ikke opgive det he- 
le. Kig på figur 4, og sammenlign 
den binære kolonne med de to 
andre. Som du ser er tallene 0 til 
127 ganske normale. Derimod er 
tallene -1 til -128 ret specielle. 
Hvis du ønsker at finde værdien 
for f.eks. -100 gøres det ved føl- 
gende beregning: 256 minus 
100. Det giver netop 156, der er - 
100 udtrykt på den 


tokomplementære metode. Lad 


os se på et eksempel fra virkelig- 
hedens verden: Figur 5 viser en 
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lile programstump der illustrerer 
JR instruktionen. Som du kan se 
er der ingen RET instruktion i pro- 
grammet, så det vil aldrig returne- 
re. Derfor bliver du nødt til at 
gemme det på bånd/disc før du 
prøver det. Når man skal bereg- 
ne hvor langt man skal hoppe 
frem/tilbage skal man gå ud fra 
den første adresse efter JR in- 
struktionen. Til højre for instruktio- 
nerne i programmet er 
startadressen for hver instruktion 
skrevet i parantes. (forudsat pro- 
grammet starter på adresse 
40000). Som du kan se starter JR 
instruktionen på adresse 40005, 
og den første adresse efter in- 
struktionen er altså 40007, og det 
er altså denne adresse vi skal 
regne efter. Den adresse vil skal 
hen til er 40002, ergo skal vil hop- 
pe 5 bytes tilbage. 


Nu sukker du sikkert dybt, for 
hvem gider sidde og regne i time- 
vis hver gang man skal lave et 
mc-program? Det er der ingen 
der gør, og derfor er der også 
blevet opfundet en såkaldt assem- 
bler. Hvis du har tastet den før- 
omtalte liste ind, ved du allerede 
en del om hvordan sådan en vir- 
ker, men en helt speciel og næs- 
ten uundværlig ting er de 
såkaldte labels. En label er en 
”mærkat' som man kan indsætte 
hvor som helst i sit program (på 
en linie for sig). En label har for- 
men ”.<navn>'", altså vil enhver 
linie der begynder med et punk- 
tum blive opfattet som en label. 
Når du så senere har brug for at 
hoppe hen til din label skriver du 
blot JP .label, JP .loop eller hvad 
du nu har kaldt din label. Man 
kan sagtens have mange labels i 
samme program, bare de bliver 
kaldt forskellige navne. En anden 
fordel ved assembleren er, at 
den selv udregner de tokomple- 
mentære værdier i forbindelse 


med JR instruktionerne. Hvis man 
prøver at hoppe til en label der 
er "for langt væk' mere end 127 
hhv. -128 adresser væk, vil as- 
sembleren melde fejl. (se beskri- 
velsen af assembleren ovenfor). 


Hvis du altså ønsker at bruge pro- 
grammet i figur 5 på assemble- 
ren, må du lave JR -5 om til 
f.eks. JR .hop og indsætte en la- 
bel mellem linie 1 og 2. En sådan 
tilpasset udgave ses i figur 6. For 
eftertiden vil alle programeksem- 
pler være listet på denne måde, 
så de kan tastes direkte ind i as- 
sembleren. (Hvis du bruger en 
anden assembler skal der mulig- 
vis laves lidt om (det gælder især 
labels). Check din brugsanvis- 
ning). 


Inden vi går videre skal vi lige se 
et eksempel med JP instruktio- 
nen. Se figur 7. Programmet min- 
der utroligt meget om det forrige, 
og resultatet er da også det sam- 
me (husk at gemme det. det retur- 
nerer IKKE). Du vil måske 
allerede have indset, at det første 
program (figur 6) udmærker sig 
frem for det andet på 2 forskelli- 
ge måder. For det første er det 1 
byte kortere. Det lyder måske 
åndssvagt, men det er faktisk ikke 
nogle dårlig ide at vænne sig til 
at skrive programmer så korte så 
mulige, for i mange tilfælde er 
korte instruktioner hurtigere end 
lange. For det andet, og det er 
måske nok det vigtigste, kan det 
første program lægges et vilkår- 
ligt sted i hukommelsen. (såfremt 
der ikke ligger noget andet det 
selvfølgelig). Det skyldes, at der 


Fortsættes næste side 


ikke hoppes til en specifik adres- 
se, men et vist antal adresser til- 
bage. 


Som det ses er JR i mange situa- 
tioner bedre end JP, men hvis 
man skal springe længere end 

+ 127 / -128 er man selvfølgelig 
tvunget til at bruge JP. 


Desværre tvinger pladsnøden os 
til at stoppe nu, men vi vender 
frygteligt tilbage om ca. en må- 
ned. Til den tid vil vi se på de sid- 
ste registre + en masse nye 
instruktioner. Måske synes du at 
de første to artikler har været for 
tøre og kedelige, men jeg kan 
godt love dig, at efter nr. 3 kan 
du skrive brugbare, omend sim- 
ple, maskinkode programmer. 
Sidst men ikke mindst, hvis du er 
i tvivl om noget, så bare skriv til 
os. Hvis dit problem har almen in- 
teresse vil vi besvare det i bladet, 
ellers vil vi ringe eller skrive sva- 
ret til dig! 


Peter Andreasen. 


Figur a (til MC-skolen 1): 


Bit nr.: E dagg > år =MA RES Bd hp 0 
Værdi:128 64 32 16 8 4 2 1 


Figur b (til MC-skolen 1): 


10-talssystemet 2-tals.  16-tals 

1 00000001 01 
2 00000010 02 
3 00000011 03 
4 00000100 04 
5 00000101 05 
6 00000110 06 
7 00000111 07 
8 00001000 08 
9 00001001 09 


10 
11 
12 
13 
14 
15 
16 


255 


Figur 1: 


Hex-koder 


3E42 
CD5ABB 
3C 
CDS5ABB 
3D 

3D 
CD5ABB 
cg 


Figur 2: 


F registret: 


w 
=3 


O+ +RNQWBRMOION 


00001010 
00001011 
00001100 
00001101 
00001110 
00001111 
00010000 


hik kg 


Mnemonics 


LD A,66 
CALL &BB5A 
INC A 

CALL &BB5A 
DEC A 

DEC A 

CALL &BB5A 
RET 


Navn 


OA 
OB 
oC 
OD 
0E 
0F 
10 


FF 


Figur 3: 


Hex-koder: Mnemonics: 
C3 nn JP nn 

18d JRd 

Figur 4: 
Tokomplementærmetoden: 


Bin / To komp. dec. / Norm. dec. 


10000000 -128 128 
10000001 -127 129 
10000010 -126 130 
11117199 -1 255 
00000000 (9) (2) 
00000001 1 1 
01111111 127 127 
Figur 5: 
Hex-koder: Mnemonics: 
3E41 LD A,65 
(40000) 
CDS5ABB CALL &BB5A 
(40002) 
18FB JR -5 
(40005) 


Fortsættes næste side. 
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Figur 6: 


LD A,64 
hop 

CALL &BB5A 
JR .hop 


Figur 7: 


LD A,64 
.hop 

CALL &BB5A 
JP .hop 


1 "ass ssseseseresee 


2 '& z80-assembler & 
3 's v 1.0 ' 
4 "as (c) 1988 . 
5 "Peter Andreasent 
6 '8 and ABC ad 
7 "assssesssee … 


10 MENORY 36999! :FOR n=42000! TO 42038! :RBEAD a$:x=VAL("A" 118): ru x: PO 

KR n,x: NEXT: IF 8$<>50931 TIIEN PRINT"Fejl 1 data": END: DATA 00,FE, 

01,C0, EB, 46, 23, 7E, 23, 66,6F, 11,88,90, CD, 8C, BC, CD, 2F, A4, 22,42, A4, ES, DD, E 

1, DD, 36, 12, 02, CØ, D8, 3E, FF, 32, 10, A4, E1, C9 

20 startadr=å9 C40:POKE 41999! ,4C9 

30 liston=1: saved=-1: DIM 1$(500):1=1:ul=1 

40 c$="NZZ NCC POPEP M ":5$="BCDBY SP":r$="B C D E li L X A":q$=" BCDEY 

AF": n$="01234567" :alf$=" ABCDEFGHIJKLENOPQRSTUVWXYZ0123456789" : 

DIN labe1$(100), label (100) 

50 DEF FNlowC(x)=VAL("å"+RIGHTS (HEXS$ (x,4),2)): DEF FEhigh(x)=VAL("a"+LEF 

TS$(HEXS(x,4),2)): KBY 0,”goto 50" +CHR$ (13) 

60 MODE 2: INK 1,18: INK 0,2: BORDER 0 

70 CLS: x=1: y=11: GOSUB 1870: 

80 LOCATE 25,2:PRINT"”A.B.C. Z80-assembler v 1.0” 

90 sts$=CHRS (151) +STRINGS (78, 154)+CHRS (157): PRINT sts; 

100 LOCATE 8,4: PRINT"Program by Peter Andreasen, All rights reseved A. 

B.C. (c) 1988" 

110 PRINT sts 

120 LOCATE 3,7: PRIET "Fl: Assemble source text 
F7: Execute program" 

130 LOCATE 3,9: PRIET "F2:Assemble to DISC/TAPE 


Få: Edit source text 


FS: List text on prin 


ter F8: Directory" 
140 LOCATE 3,11: PRINT"F3: Assembler options F6: Load/Save text 
FØ: Exit" 


150 a$="": VHILE a$="" :a$=INKEYS: VEND 

160 IF a$<"1" OR a$>"9" THEN 150 

170 OF VAL(a3) GOSUB 180, 190,200, 1690,300,320,380,420,430: GOTO 70 

180 disc=0: GOTO 460 

190 x=15: y=5: GOSUB 1870: LOCATE 1,17: PRIBET st$; : LOCATE 29, 16: PRINT" Asse 
mble to DISC/TAPE"; : LOCATE 3,19: LINE INPUT ”Filename:”, fS: dis 

c=1: GOTO 460 

200 x=15: y=5: GOSUB 1870: LOCATE 1,17: PRIET st$; : LOCATE 31, 16; PRINT" Asse 
møbler options:"; : LOCATE 3,19: PRINT"Fl:Start address: & F 

2: List while assombling F3: Return to mainmenu” 

210 LOCATE 21,19: PRINT CHR$ (24); HEXS (startadr, 4); " Sag 

220 LOCATE 54,19: 1F liston=1 THEN PRINT”ON ”; ELSE PRINT"OPF”; 

230 PRINT CHRS (24); 

240 5$="": YHILE a$="":a$=I5KEYS: VEND 

250 IF a$<"1” OR a$>"3" THEN 240 

260 IF a$="1" THEN LOCATE 21,19: INPUT "",1$: IF a$<>"" THEN startadr=VA 
L(a$) 

270 IF a$="2" THEY liston=-liston 

280 IF a$="3" THEN RETURN 


290 GOTO 210 

300 x=15: y=5: GOSUB 1870: LOCATE 1,17: PRINT st$;: LOCATE 30, 16: PRINT" List 
text on printer”; : LOCATE 3, 19: PRINT"Please make your printer 

ready, then press ENTER, Any other key to abort,”;:a$=" : YHILE a$="": 8 

s=INKEYS: VEND: IF a$<>CHR$(13) THEN RETURN 

310 WIDTH 255: FOR n=1 TO 16: PRINT $8,1$(n): NEXT: RETURE 

320 x=15: y=5: GOSUB 1870: LOCATE 1,17: PRINT st$;: LOCATE 33, 16: PRINT" Load 
/Save text"; : LOCATE 3,19: PRINT"Fl: Load text F2: Sa 

ve text F3: Return to mainmenu” 

330 a$="";VHILE a$="":a$=INKBEYS: VEND: IF a$<"1" OR a$>"3" THEN 330 

340 IF a$%="3" THEN RETURN 

350 LOCATE 3,19: PRINT STRINGS (76,32); : LOCATE 3,19: LINE INPUT "Filename 
THEN RETURS 

THEN OPENIN f$: INPUT 29,1s:FOR n=1 TO 1s:LINE INPUT 49,1 

$(n): NEXT: CLOSEIN: saved=—1: RETURN 

370 IF a$s="2" THEN OPENOUT f$:PRINT 9,1s: FOR n=1 TO 1s: PRINT 9,18$(n) 
: NEXT: CLOSBOUT: saved=-1: RETURN 

380 x=15: y=5: GOSUB 1870: LOCATE 1,17: PRINT st$; : LOCATE 32, 16: PRINT" Exec 

ute Program"; : LOCATE 3,19: IF saved=0 THEN INPUT "Program not s 

aved. Save? (y/n):",yn$: IF UPPERS (yn$) 5" EH" THEN GOSUB 320: GOTO 380 

390 LOCATE 3,19: INPUT "Execution address ( > å49C40 / > 40000. ENTE 
R=return):”,a$:a=VAL(a$): IF a<49 C40 OR a<40000! THEN RETURN 

400 LOCATE 3,19: PRINT STRINGS (70,32); : LOCATE 3, 19: PRINT"Are you sure y 
ou want to call address ”;a$; : INPUT ”? (y/n)",af$: IF UPPERS (a$) 

<>"Y" THEN RETURN 

410 MØDE 2:CALL a: PRINT: PRIET"Press any key to return to the head-menu 
”: CALL å&BB18: RETURN 

420 CLS: 1: y=23: GOSUB 1870: LOCATE 1,3: PRINT st$; : LOCATE 35,2: PRINT" Di 
rectory : VINDOY 2,79,4,24: PRINT: PRINT: CAT: PRINT: PRINT" Press 

any key”: WINDOW 1,80,1,25:CALL &BB18: RETURN 

430 IF NOT saved THEN x=15:y=5: GOSUB 1870: LOCATE 1,17: PRINT st$;: LOCAT 
E 38,16: PRINT"EXIT" ; : LOCATE 2,19: LINE INPUT "Source text not s 

aved Save? (y/n):",a$:0$=UPPERS(a$); IF a$="N" TIIEN CLS: END ELSE GOSUB 
380 

440 END 

450 END 

460 "assembler 

: y=23: GOSUB 1870: LOCATE 1,3: PRINT st$; : LOCATE 35,2: PRINT" AS 

: VYINDOY 2,79,4,24: IF disc THEN POKE 42000!,0:CALL 42 

000!,18: IF PEEK(42000!)7<>0 TIIEN PRINT"Disc error”:PRINT"Press any key" 
: CALL &BB18: CLOSEOUT: MODE 2: RETURN 


14 


480 labels=0: FOR pass=1 TO 2: LOCATE ?1,73,2: PRINT 1, USING "Pass: 7"; p 

ass; :adr=startadr: FOR lineno=1 TO 1s: LOCATE 1,2,2: PRINT ø1,"L 

lineno; :111$=1$(1ineno) : GOSUB 510: NEXT: FEXT: PRINT: PRINT"Press an 
y key":CALL &BB18: WINDOW 1,80,1,25 

490 IF disc THEN hd=PEEK (42050! )>)+2568PEEK (42051! >: POKE bd+21,FWlow(sta 
rtadr): POKE hd+22,FEhigh(startadr): CLOSEOUT 

500 RETURE 

510 IF LEN(11n$)>1 THEN 11n$=11n$+"$" ELSE RETURN 

$20 GOSUB 1140:'clear 

530 111$=UPPERS$ (11n$) 

540 IF LEFT$(11n$,1)="." THEN IF pass=1 THEN label1s$=MIDS(11in$,2,LEN(11 
n$)-2): GOSUB 1590: RETURN ELSE IF liston=1 THEN PRIET HEXS (adr, 

43;"=";,, LEFTS (1$(lineno), 20): RETURN ELSE RETURN 

550 IF LEFTS(11n$,3)="DB ” THEN 1in$=11n$+","”: bor=0:h$="":n=3: WHILE IN 
STR(n, 111$,7,7"):a=VAL(MIDS (11n$,n)): b$=b$+HEXS (a,2): bar=bnrtl: 
n=INSTR(n+1,111$,7,7">+1: VEND:define=1: GOTO 1520 

560 IF LEFTS$(11n$,3)="DWY ” THEN 111$=>11n$+",": bnr=0:b$="”:n=3: WIIILE IN 
STR(n, l1n$,7,"):a=VAL(MIDS (11n$,n)): hs$=b$+HEX$ (FNlow(a),2)>+HEX 
$(FNhigb(a),2): bnr=bnr+2: n= INSTR(n41,11n$,7,7) 41: VEND: definc=1: GOTO 15 
20 

570 IF LEFT$(11n$,4)=”DT '"" THEN lin$=1$(1incno)4"$"; h$="" : x=5: WHILE M 
IDS(11n$,x,1)<>7'" AND x<LEN(11n$): h$=h$+HEX$ (ASC (MIDS (11in$, x, 

177,2): x=x+1: VEND: bor=x-5: IF liston=1 AND paus=2 TIIEN PRINT HEXS (adr, 4 
),. LEFT$(18$(lincnu), 20): GOTO 1550 ELSE 1550 

580 GOSUB 1280:'ordn 

590 111$=LEFTS$ (11n$, LEN(11n$)>-1) 

600 IF l1in$="/lALT"” THEN bl1=4076:1=1: GOTO 1460 

610 sp=INSTR(lin$,” ">: k=INSTR(11n$,7,7): IF LEFT$ (11n$,2)=" JR" AND k<> 
0 THEN g=(IFSTR(c$, MIDS(11n$,4,k-4))-1)/244: h=0: f=0: bø=d: 1=2:z 

=1: GOTO 1450 

620 x=1NSTR(” NOP KX AF, AF'DJNZ d JR d 
x-12/9: 10: hh) O: bød: 1 (1xCx5 199): 2-1: GOTO 14%0 
630 IF LEFTS(11n$,3)="LD ” AND RIGHTS (11n$,1)="”n" AND k=6 THEN x=INSTØK 
(5$, NIDS(11n$,4,k-4)): IF x THEN j=(x-1)/2: k=0: h=1: f=0: b2=F8low 

(word): b3=FNhigh(word): 1=3: z=2: GOTO 1450 

640 IF LEFTS(111$,7>="ADD Y ,” THEE x=INSTR(8$, RIGHTS (11n$,2)7): IF x Till 
EN j=(x-1)/2: k=1: b=1: 70: 1=1: z=2: GOTO 1450 

650 IF lin$="LD (n)>,A” THEN lin$="LD (nn), A" 

660 IF 11n$="LD A, (n)" THEN 11n$="LD A, (nn)" 

670 IF lin$="LD Y ,(n)" TiHEN 11n$="LD Y ,(nn)" 

680 IF 11n$="LD (n),Y " THEN 11n$="LD (nn), Y ” 

690 x=INSTR(” (BC), A A, (BC) (DE), A A, (DE) (nn),Y Y , (nn) (nn), AA, (nn)", 
MIDS(11n$,4)>): IF x AND LEN(11n$)>8 AND LEFT$(11n$,2)=" LD” THEN 
8=(x-1)/7: h=2: f=0: 1=1-29 (x>=29): b2=FNlow(word): b3SFNhbigh(word): z=1: GO 
TO 1450 

700 IF LEFT$(11n$%,3)=" INC" THEN x=INSTR(5$,RIGHTS$(11n8,2)): 1F x THEN f 
=(x-1)/2: k=0: h=3: f=0: 1=1: z=2: GOTO 1450 

710 IF LEFT$(11n$,3)="DEC" THEN x=INSTR(6$,RIGHT$(11n$%,2)): IF x TIIEN fg 
=(x-1)/2: k=1: h=3: 1=0: 1=1: z=2: GOTO 1450 

720 IF LEFTS$(11n$,3)=" IWC" THEN x=INSTR(r$,MID$(11n$,5)): IF x THEN g=( 
x-1)/2: h=4: f=0: 1=1: z=1: GOTO 1450 

730 IF LEFTS(11n$%,3)="DEC" THEN x=INSTR(r$,MID$(11n$,5)): IF x THEN gm 
x-1)/2: b=5: 1=0: 1=1: z=1: GOTO 1450 

740 IF LEFTS(11n$,3)="LD ” THEN x=INSTR(r$,MIDS$(11n$,4,k-4)): IF x AND 
RIGHTS (11n$,1)>="n" THEN b=6: f=0: g=(x-1)/2: z=1:1=2: b2=byte: IF b 

yte<0 OR byte>255 THEN 1680 ELSE 1450 

750 x=INSTR(”RLCARRCARLA RRA DAA CPL SCF CCF ",11n3): IF x THEN g=(x-1) 
14: h=7: f=>0:1=1: z=1: GOTO 1450 

760 IF LEFT$(11n1$,3)>)="LD ” TiEN x=INSTR(r$, MID$ (11n$,4,k-4)): y=INSTRIr 
S$, MIDS(11n$,k+1)): IF x AND y AND LEH(11n$)>4 THEN f=1:g=(x—1)2/7 

2: h=(y-1)/2:1=1: z=1: GOTO 1450 

770 GOSUB 1170:'x 

780 IF x>-1 THEN y=INSTR(r$,MID$(11n$%,11+1)): IF y THEN g>x: h=(y-1)/2: f 
=2:1=1: z=1: GOTO 1450 

790 IF LEFTS(11n$,3)="RET” AND LEN(11n$)>4 TIIEN gv=1: IF LEN (11in$)7=5 Till 
EN lin$s=lins+" ” 

800 IF gv=1 THEN gv=0:x=INSTR(c$, MID$(11n$,5)): IF x THEN g>(x71)/2: h=0 
:f=3: 1=1: z=1: GOTO 1450 

810 IF LEFT$(11n$,3)="POP" THEN x=IESTR(q$,MID$S(11n$,57): IF x THEN j=< 
x-1)/2: k>=0: f=>3: 1=1: z=2: GOTO 1450 

820 IF LEFTS(11n$,5)="JP (I" THEN dd=0: b2=åE9:1=—2;IF hl=1 THEN bl1=&DD: 
bl=0: GOTO 1460 ELSE bl1=aåFD: hl=0: GOTO 1460 

830 x=INSTR(”RET EXX JP X LD SP,Y ”,lin$): IF x THEN j=(x-1) 
1/8: k=1: h=1: 1=3: 1=1: z=2: GOTO 1450 

840 IF LEFT$(11n$,3)="JP ” AND RIGHTS (1in$,1)>="n" AND MIDS(11n$,4,1)7<> 
”n" THEN gv=1: IF k=5 THEN 11n$=LEFTS(11n$,4)7+" "+MIDS(11n$,5): 

k=ktl 

850 IF gv=1 THEN gv=0:x=INSTR(c$,MIDS(l1in$,4,k-4)): IF x TIIEN g=(x712/2 
:h=2: f=3: 1=3: b2=FNlow(word) : b3=FNhigh (word): z=1: GOTO 1450 

860 x=1NSTR(”JP nn OUT (n),A IN A,(n) EX (SP),Y EX DE, Y 

DI EI ”",11n$): IF x THEN g=(x-1)/10: h=3: f=3: z= 

1: IF x=1 THEN b2=FNlow(word):b3=FNhigh(word):1=3: GOTO 1450 ELSE IF x<= 

31 THEN b2=byte:1=2: GOTO 1450 ELSE 1=1: GOTO 1450 

870 IF LEFTS$(11n$,4)="CALL" AND k<>0 AND RIGHTS(11n$,1>="n"” THEN gv=1: 
IF k=7 THEN l1n$=LEFT$ (11n$,6)+" "+MIDS(11n$,7):k=k+1 

880 IF gv=1 THEN gv=0:x=INSTR(c$,MIDS$(11n$%,6,k-6))7: IF x THEN b=4;1=3:g 

=(x-1)/2:1=3: b2=FNlow(word) : b3=FNhigh(word): z=1: GOTO 1450 

890 IF LEFTS(11n$,4)="PUSH" AND LEN(11n$)>>4 THEN x=INSTR(q$,MIDS$(lin$, 

67): IF x THEN j=(x-1)/2: k=0: h=5: 7=3: 1=1: z=2: GOTO 1450 

900 IF LEFTS(11in$,6>="CALL n" AND RIGHTS(11n$,1)="n” THEN k=1: h=5: 153: 

J3=0: 1=3: b2=FElow(word): bå=FNhigh(word): z=2: GOTO 1450 

910 GOSUB 1170 

920 IF x>-1 THESE 1F MIDS(11n$,11+1)="n" THEN g=x: b=6: 1=3;1=2:b2=byte:z 

=1: GOTO 1450 

930 IF LEFTS(11n9%,5)="RST å" TIIEN x=IESTR(” &00 &08 &10 418 &å20 a28 43 

0 &38 440 &48",MIDS$(11n$,4)): IF x THEN g=(x-1)/4: h=7:1=3:2=1:1 

=1:z=1: GOTO 1450 

940 "set ACB ser 

950 x=INSTR(”RLCRRCRL RR SLASRA' '' SRL", LEFTS$(11n$,3)): IF x THEN z=INST 

R(rs$, MIDS(11n$,sp+t1)): IF z THEN b=(z—1)/2:g=(x71)/3: f=0: 1=1:z2= 

1: 12=4CB: GOTO 1450 

960 IF LEFT$(11in$,4)="BIT ”" AND k<>0 THEN x=INSTR(n$, MIDS(11n$,5,k-5)) 
ty=INSTR(rS, MIDS(11n$,k+1)): IF x<>0 AND y<>0 THEN g=(x—1): h= (Cy 

-1)/2: f=1: 1=1: z=1: 12=4CB: GOTO 1450 

970 IF LEFT$(11n$,4)="RES " AND k<>0 THEN x=INSTR(n$,MIDS(11n$,5,k-5)) 
ry=INSTR(r$, MIDS(11n$,k+1)): IF x<>0 AND y<>0 THEN g=(x-1): h= (ly 

-1)2/2: 1=2:1=1: z=1: 12=4CB: GOTO 1450 

980 IF LEFTS(11n$%,4)>="SET ” AND k<>0 THEN x=INSTR(n$,MIDS(11n$,5,k=5)) 
ry=INSTR(rS, MIDS(11n$,k+1)): IF x<>30 AND y<>0 THEN g=(x—1): h= (ly 

71)/2: 1=3:1=1: z=1; 12=8CB: GOTO 1450 

990 'ED 

1000 IF LEFTS(11n$,3)=" IN ” AND k<>0 AFD RIGIITS$(11n$,3)=" (C>" THEN x=I1 

NSTR (rs, MIDS (lin$,4,k-4)): IF x THEN g=(x71)/2: h=0: f=1l: z=1: 1=1: 

172=&8ED: GOTO 1450 

1010 IF LEFTS(11n$,4>="OUT " AND k<>0 AND MIDS(11n$,5,3)="(C)" TIIEN x= 
INVSTR (rs, XIDS(111$,9)): IF x THEN g=(x-1)/2: hæl: f=l:z=1:1=1: 12= 

&ED: GOTO 1450 

1020 IF LEFTS(11n$,7)>)="SBC Y ,” THEN x=INSTR(s$,MIDS$(11n$,8)): IF x THE 

N j=(x-1)/2: k=0: h=2: f=1; z=2: 1=1: 1£2=&BD: hl=0: GOTO 1450 

1030 IF LEFT$(11n$,7)>="ADC Y ,” THEN x=INSTR(s$,MID$(11n$,8)): IF x THE 

NH j=(x-1)/2: k=1: b=2;: f=1: z=2: 1=1: f2=åED: hl=0: GOTO 1450 

1040 IF LEFTS(11n$,5>="LD Cn"” AND k THEN x=INSTR(6$,MIDS(l11in$,x+1)):; IF 
x THEN j=(x-1)/2: k=0: b=3; f=1: z=2: 1=3: 12=åED: b2=FNlow(word) : b3 

=FNhigh(word): GOTO 1450 


”",11n$): IF x THEN g=c 


1050 IF LEFTS(11n$,3)="LD " AND MIDS(lin$,k+1,2)=" (n” THEN x=INSTR(s$, 
MIDS (lin$,4,k-4)): IF x THEN j=(x-1)/2: k=1: b=3: f=1: 2>2: 1>3: f2=&8 

ED: b2=FNlow (word) : b3=FEhigh (word) : GOTO 1450 

1060 IF 11n$="NEG" THEN h=4:f=1:g=0:z=1:1=1:f2=&ED: GOTO 1450 

1070 IF l1ins="RETN" THEN k=0 :1=1: f2=&ED: GOTO 1450 

1080 IF lin$="RETI" TilEE k=1: h=5:; f=1: z=2:1=1: f2=4&ED: GOTO 1450 

1090 IF LEFT$(11n$,3)="IM " THEN x=INSTR(”IM 0 IM 1IM 27,” IN"+STRS( 
byte): IF x TIIEN g=(x-1)/4: h=6: f=1:z=1:1=1: f2=4ED: GOTO 1450 

1100 x=INSTR("LD I,ALD R, ALD A, ILD A, RRØD RLD ”",1in$):1F x THEN g= 
(x-1)/6: h=7: f=1: z=1: 1=1: f2=åED: GOTO 1450 

1110 x=INSTR(" LDCPINOT", LEFTS (11n$,2)): y=INSTR(”I D IRDR”,KMID$(11n$,3) 
): IF x<>0 AND y<>0 THEN f=2:h=(x-1)/2: g=(y-1)/2+4:1=1: f2=åED: z 

=1: GOTO 1450 

1120 PRINT" Error:",lins 

1130 END 

"448 clear ét 


1170 "find x$ 

1180 x2S=LEFTS (11n$%,2):x3$=LEFT$ (11n$,3): x6$=LEFTS (11n$, 6): x=—1 
1190 IF x33="CP " THEN x=7:11=3 

1200 IF x2$="O0R”" THEN x=6:11=3 

1210 IF x33="XOR" THEN x=5:11=4 

1220 IF x38=" AND" THEN x=4:11=4 

1290 IF x08="0BC A," TIIUN xx9111»6 

1240 1F x39="SUB"” THEN x=2:11=4 

1250 IF x6$="ADC A," THEN x=1:11=6 

1260 IF x6$="ADD A," THEN x=0:11=6 


1290 IF LEFTS(11n$,$)="JP (1"” THEN hl=INYSTR("”XY",MIDS(11n$,6,1))>: RETUR 


1300 z=LEN(1in$):x=INSTR(lin$,"(I7): IF x=0 THEN 1330 ELSE y=INSTR(11ns 
,"27): d=VALCMIDS (111%, x+4, y-x74)): IF MIDS (11n$,x+3,1)=%—" AND 

d<>0 THEN IF d>128 AND pass=2 TIIEN 1680 ELSE d=256-d ELSE IF d>127 AND 
pass=2 THEN 1680 

1310 IF <d<0 OR d>255) AND pass=2 THEN GOSUB 1680 

1320 dd=-1: hl=INSTR("XY", MIDS(11in$, x+2,1)): 11n$=LEFTS (11n$,x71)4"X "4X 
1D$(11n$,y+1):1=1+1 

1330 x3$=LEFT$(11n$%,3): IF x$="SET" OR x$="BIT" OR x$="RES"” OR x$="RST" 
THEN 1410 

1340 x=INSTR(11in$,7."): IF x THEN n=x+1: WHILE INSTR(alfs,MID$ (11n$,n,1) 
):n=n+1: VEND: y=n: labels=MIDS (11n$,x+1, n-x71) : GOSUB 1630: GOTO 1 

370 

1350 z=LEN(11n$): n=1: YHILE INSTR("01234567898",MIDS(1in$,n,1)>>0 AND n 
<z:n=n+1: VEND: IF n=z THEN 1410 ELSE x=n:n=n+1: WHILE INSTR(" 012 
3456789ABCDEF", M1D$(11n$,n,1))>: n=n+1: VEND: y=n 

1360 byte=VAL(MIDS(11n$,x)) 

1370 IF LEFTS$(11n$,2)="JR" OR LEFTS(11n$,4)="DJEZ" THEN byte=UNT (byte) 
:a=sadr+2: jump= (byte-a): IF (jump<-128 OR jump>127) AND pass=2 T 

HEN GOSUB 1680 ELSE byte=jump+ (256 AND (SGE(jump)=-1)):gv=l 

1380 IF gv=1' THEN gv=0:11n$=LEFT$ (1in$,x-1)+"d"+MIDS(11n$,z): word=0:d= 
byte: byte=0: GOTO 1410 

1390 IF byte>255 THEN lin$=LEFTS(lin$,x-1)4"nn" +MIDS (11n$, y): word=byte 
1400 IF byte<=255 TIIRN 11n$=LEFTS(11n$%,x-1)1"n7+MIDS (11n$, y): word=byte 
1410 x=INSTR(lin$," (HL)"): IF x TIIEN 11n$=LEFTS$ (lin$,x-1)4"X "4 MIDS(lin 
$,x+t4) 

1420 x=IESTR(l11n$,"HL")+INSTRtlins,"IX")+INSTR(11n$,”IY"): IF x TIIEN hl 
=INSTR("XY", KIDS (l11in$,x+1,1)): lin$=LEFTS (1in$,x-1)+"Y "+MIDS (1 
in$,x12) 

1430 IF RIGHTS(11n$,3)="HLS$” THEN 11n$=LEFTS(11in$, LEN(11n$)-3)4+"Y s" 
1440 RETURN 

1450 IF z=1 THEE bl=VAL("åX"+BINS(f,2)+BINS$(g,3)+BINS(h,3)) ELSE bl=VA 
L("&X"+BINS(f,2)+BINS(j,2)+BINS(k, 1)+BIHS (h,3)) 


1460 bar=0: hs="" 

1470 IF bl THEN bnor=baort1: IF bl=1 THEN h$=HEX$ (4DD, 2) ELSE b$=IlEXs (4FD 
2) 

1480 IF f2>-1 THEN hs=hs$+HEXS (12,2): bnr=bnr+1 

1490 IF dd AND hl AND bar=2 THEN b$=b$+RIGHTS(HEXS(d,4),2): banr=bnr+1 
1500 bar=bnr+1: hs=b$4HEX$(b1,2>: IF dd AND hl AND bnr=2 TIIBN bs=b$4+RIGH 

TS (HEXS (d, 4),2): bnr=bar+1 

1510 IF 1>1 THEN h$=bh$+HEXS (b2,2): bnr=bnr+1l: IF 1>2 THEN bs$=h$+/1EX$ (b3, 
2): banrsbar+1 

1520 IF liston=1 AND pass=2 AND define=0 TlEN PRINT HEXS(adr,4),hb$,LEF 
T$(1$(lineno)>,20) 

1530 IF define=1 AFD liston=1 AND pass=2 THEN PRINT HEXS(adr,4),,LEFTS 
(18(l1ineno), 20) 

1540 define=0 

1550 IF pass=1 THEN 1580 

1560 FOR n=1 TO LEN(b$) STEP 2: x=VAL(”å"+MID$(h$,n,2)): IF disc THEN PR 
INT 99,CHR$(x); ELSE POKE adr+(n-1)/2,x 

1570 FEXT 

1580 adr=adr+bnr: RETURE 

1590 found=0:n=1: WHILE (NOT found) AND n<>labels+1: IF labels (n)slabels 
THEN found=-1 

1600 n=n+1: VEFD 

1610 IF n<>labels+1 THEN PRINT"Label allready defined”: END 

1620 labels=labels+1: labels (labels)=labels: label (labels) =adr: RETURN 
1630 IF pass=1 THEN byte=-1: RETURN 

1640 n=0: found=0: WHILE (NOT found):n=n+1: IF labels$(n)=labels THEN foun 

d=-1 

1650 IF n>labels THEN found=-1:n=-—1 

1660 VEND: IF n=-1 THEN PRINT"Undefined label”: END 

1670 byte=1abel (n): RETURN 

1680 IF paso=2 THEN PRINT"Number out of range in line”;lineno: END ELSE 
byte=0: RETURN 

1690 'editor 

1700 saved=0 

1710 1=1:ul=1 

1720 MODE 2: GOSUB 1860 

1730 LOCATE 1,1—ul+1: PRINT" 8" ; CHRS (13); 

1740 a$="": YHILE a$="":a$=INFKEYS: VEND: PRINT" ”; 

1750 IF INKEY(0)=0 AND 1>1 THEN 1=1-1: IF 1<ul THEN LOCATE 1,1: PRINT CH 
R$(11);CIIR$ (0); TAB(3);18$(1); :ul=ul—1 

1760 IF INKEY(2)=0 AND 1<=16 THEN 1=141: IF 1>u14+24 TIIEN 1.OCATE 1,25:PR 
INT: PRINT TAB(3);1$(1); :ul=ul+1 ELSE LOCATE 3,1-ul+1: PRINT 18$< 

13; 

1770 IF INKEY(O)=128 THEN 1=æl:ul=1: GOSUB 1860 

1780 IF INKEY(2)=128 TIIEN 1=1a:ul=>=1-24: IF ul<=0 THEN ul=1: GOSUB 1860 E 
LSE GOSUB 1860 

1790 IF INKEY(79)=128 THEN n=1ls: WHILE 1$(n)="" AND n>0: 1s=16-1:n=n-1: VW 
END: RETURE 

1800 IF INKEY(79)=32 AND 16>0 AND 1<=16 THEN FOR n=1l TO 18:1$(n)=1$ (n+ 
1): NEXT: 18(n)="" : 16=16-1: GOSUB 1860 

1810 IF ISKEY(68)=32 ABD 16<500 THEN 15=18+1: FOR n=ls TO 1+1 STEP -=1:1 
$(n)=1$(n-1): NEXT: 18(1)="" : GOSUB 1860 

1820 IF a$<>" ” THEN 1730 

1830 LOCATE 3,1-u141: LINE INPUT "",as$: IF LEF(a$)>77 TIIRN GOSUB 1860: G0 

TO 1730 ELSE WHILE RIGHTS$(a$,1)=" ”":a$=MIDS (as$,1,LEN(A5$)—1): VE 

ND: x=FRE("") 

1840 LOCATE 3,1-ul+1: PRINT a$; STRINGS (77-LEN (a$), 32); :18$(1)=afs: Is=1s+A 
BS(1>16): 1=1+1: IF 1>=ul+25 THEN LOCATE 1,26:PRINT CiIIRS(0);:ul= 

ul+1 

1850 GOTO 1730 

1860 MODE 2:FOR n=1 TO 25: LOCATE 3,n:PRINT 1$(ntul—1); : NEXT: RETURN 
1870 LOCATE 1,x: PRINT CHR$ (150); STRINGS (78, 154) ; CHRS (156); 

1880 FOR n=1 TO y:LOCATE 1, ntx: PRINT CHRS(149); : LOCATE 80, nix: PRINT CH 
R$ (149); : NEXT 

1890 LOCATE 1, yixtl: PRINT CIIR$ (147) ; STRINGS (78, 154) ; CIIRS (153) ; : RETURN 


zSmÆG—mm—mEEEEEEEEE&€&CQ$€QOC———m—————«—m—————m——m——m— == ed 


TIL CPC-Computerne: 
PENTAGON LOGEN 


Et Strategispil Indsendt Af Svend 
H. Poulsen. 


Spil forklaring : 


Der er to modstandere som skal 
forsøge, at udrydde hinanden i 
en 6X6 stor matriks. Matriksens 
felter virker på forskellige måder. 
| alle hjørnerne kan man placere 
1 brik, uden at feltet bliver over- 
fyldt. I felterne (4) mellem hjørner- 
ne kan man plaere 2 og i resten 
af felterne kan man placere 3 
brikker. Hvis man placerer flere 
brikker end nævnt, så vil feltet bli- 
ve tømt og brikken(erne) vil blive 


te felt bliver tømt og de 2 felter i 
lodret og vandret gående retning 
vil blive akkumuleret med 1. Skul- 
le 1 eller 2 af disse felter indehol- 
de fjendens brikker, så vil de 
samtidigt blive overtaget. Man 
kan ikke placere en brik i et felt, 
placeret i et felt lige ved siden af 
den tømte. Hvis der f.eks. place- 
res 2 brikker i et hjørnefelt, så det- 
hvor fjenden allerede har place- 
ret en brik. Når spillet skrider 


frem og modstanderne har place- 
ret deres brikker offensivt eller 
defensivt, så vil der komme et 
tidspunkt hvor omrokkeringen 
ved overfyldte felter vil resultere i 
en kædereaktion, som helt eller 
delvist vil ødelægge modstander- 
ens brikker. Når matriksen udeluk- 
kende indeholder felter med den 
ene modstanders brikker, så vil 
denne blive kåret som vinder. 
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Programmet er nøje fejlkorrigeret Re Arn To-vejsudskrift -----——- 
. i É 6 
og er lige til at taste ind. 870 RESTORE 5150 
880 FOR t=1 TO 21 
890 READ a$:y=y+l 
900 IF a$="" THEN 890 
910 r1=LEN(a$):r2=1 
920 IF m=0 THEN æ1:s1=r2:s2=rl:s=1 ELSE m=0:s1=r1:s2=r2:s=>1 
930 FOR b=s1 TO 52 STEP s 
940  LOCATE b+1,y: PRINT MIDS(a$,b,1) 
950 FOR delay=1 TO 20: NEXT 


God fornøjelse"! Obs Dette er før- 960 NEXT b 
970 HEXT t 
ste del af flere - Hvis du ønsker 980 YHILE a$<>CIRS$ (32) : a$=INKEYS: VEND 
990 GOSUB 4020 
det færdige program - så kontakt 1000 
10309 " c——5555… Periodeskema =————————— 
o s (RED.) 1020 + 


1030 RESTORE 5370: year=1950 
1040 IFK 1,2: INK 2,15: INK 3,26 
1050 FOR t=16 TO 320 STEP 16 
1060 TAQ 
1070 PLOT 0,t,1: PRINT year; 
1080 PLOT 96,t+8,2 
1 " TIL ALLE CPC MASKINER (RED. ) 1090 PRIET RIGHTS (STR$ (year+1),2); 


10 " DANNICORD---DANNICORD-——DANN ICORD 1100 year=year+2 
1110 TAGOFF 


Aue, FRE ker g= 
SK ERE Pentagon Logen Sene 1120 MOVE 144,t-6: DRAV 639, t-6,1 
BØRN sm wE 1130 MOVE 144,t+2: DRAW 639,t+2,2 
50 ' - Copyright 1988 by Dannicord - 1140 NEXT t 
GO ? == ære 1150 TAG 
70 ' --- Svend H. Poulsen, Baarse --- 1160 PLOT 16,352,3:PRIET "Fremtid"; 
KO Uras moves 1170 FOR t=1 TO 9 
90 ' DANNICORD---DANHICORD-—-DANNICORD 1180 READ coun$, 1x, lyl,ly2 
100 ' 1190 FOR t2=lyl TO ly2 STEP 8 
110 " mmm Initiering -------—--- 1200 PLOT 1x,t2,3: PRINT coun$; 
120 + 1210 NEXT t2 
130 ON BREAK GOSUB 4110 1220 HEXT t 
140 MODE 1: BORDER 0: PAPER 0: DEG 1230 ' 
150 INK 0,0: INK 1,3: INK 2,12: INK 3,15 1240 " ——----- Duo-colour info -----—- 
160 1250 ' 
170 ' 1260 TAGOFF: RESTORE 5500 
180 + Start-billed 1270 WINDOY 1,40,1,2 
190 + srær===== 1280 FOR t=1 TO 56 
200 + 1290 READ txts: fv=l 
210 DEF FEx1=319+b8CO0S(c) 1300 PRIET:PRIET TAB(S5); 
220 DEF FNy1=199+bsSIN (c) 1310 IF t/2=IFT(t/2) THEH fv=2 
230 DEF FNd=(c-63)+42sa+tl 1320 FOR tt=1 TO LEN (txts$) 
240 DEF FNx2=319+145sC0S(FEHd) 1330 IF fv=2 THEN fv=1 ELSE fv=2 
250 DEF FEy2=199+1458SINW(FEd) 1340 PEN fv 
280 £ 1350  PRIET MIDS(txts,tt,1); 
BT 1 Jer er= 5 pentagoner tegnes -—-——— 1360 as$=INKEYS: IF a$<>"" THEN RESTORE 5970: t=53 
280 ' 1370 FOR delay=1 TO 20: HEXT 
290 FOR a=175 TO 75 STEP -25 1380 NFEXT tt 
300 f=2:IF a<151 AND a>99 THEEH f=1 1390 FOR delay=1 TO 1200: NEXT 
310 MOVE 319,199+a 1400 HEXT t 
320 FOR b=a TO a-10 STEP -—1 1410 GOSUB 3790 
330 FOR c=90 TO 450 STEP 72 1420 IF delay<>0 THEN cx=2 ELSE cx=24 
340 DRAY FEHx1, FHyl,T 1430 LOCATE 4,cx: PRINT SPACES (34) 
350 NEXT c 1440 IF no<>7 THEN 1470 
360 NEXT b 1450 LOCATE 5,cx: PRINT" Modstander (Computer - Kammerat)"” 
370 NEXT a 1460 GOTO 1480 
380 + 1470 LOCATE 8,cx: PRINT"Modstander (Computer - Ven)" 
IDO" rammen Kanter tegnes -—-—------ 1480 a$=UPPERS (INKEYS$): IF a$="" THEN 1480 
400 ' 1490 IF a$="K" AND no=7 THEN ai=0:GOSUB 4020: GOTO 1540 
410 FOR c=90 TO 378 STEP 72: t=1/4 1500 IF a$="C" AND n0<>7 THEN ai=1:GOSUB 4020: GO0T0 1540 
420 FOR a=1 TO 2:t1=0 1510 IF a$="V" AFD no<>7 THEN ai=0:GOSUB 4020: GOTO 1540 ELSE 1480 
430 IF a=1 THEN t=t ELSE t=-t 1520 " 
440. FOR b=60 TO 75 1530 " 
450 HOVE FEx1,FNyl 1540 " 
460 DRAY FNx2,FNy2,2 1550 " 
470 ti=tl+t 1560 " 
480  NHEXT b 1570 DI antal (5,5),ejer (5,5) 
490 NEXT a 1580 DIM sx(32),sy(32):z(1)=5 
500 NEXT c 1590 MODE 1: BORDER 0: IHK 0,0 
510 ' 1600 INK 1,2: INK 2,21: INK 3,6 
903 sees sEs Forgreni uger 1610 WINDOY 9,33,1,25 
530 " 1620 WINDOY £1,1,7,10,18 
540 TAG 1630 WINDOY $2,34,40,10,18 
550 PLOT 18, 156,3: PRINT"Pentagon"” ; 1640 WINDOW $3,11,30,21,23 
560 MOVE 498, 156: PRINT" Logen"; 1650 WINDOY %4,10,31,15,16 
570 TAGOFF: PE 2 1660 PAPER 3,3 
580 PRINT CHRS$(22)+CHRS$ (1) 1670 PEN 41,2:PEN £2,2 
590 LOCATE 2, 16: PRINT" Pentagon" 1680 PAPER £1,0: PAPER 2,0 
600 LOCATE 32,16: PRINT"Logen" 1690 PRINT £1," USA ” 
610 PEN 3 1700 GOSUB 3910 
620 PRINT CHR$(22)+CHR$(0) 1710 PAPER 1,1: PAPER 2,3 
630 LOCATE 7,1: PRIET"Copyright 1988 by Dannicord"” 1720 PRINT 41,CHR$ (20) 
640 LOCATE 11,24: PRINT" Baggrundsviden (J/N)"; 1730 PRINT €2,CHR$ (20) 
650 PRINT CHR$ (22)+CHRS (0) 1740 ENT 1,20,-20,1:ENT 2,20,-12,1 
660 a$=UPPERS (INKEY$): IF a$="" THEN 660 1750 EHV 1,20,12,2:ENV 2,10,6,1 
670 IF a$="J" THEN 740 1760 KEY DEF 72,1,240 
680 IF a$="H" THEH 690 ELSE 660 1770 KEY DEF 73,1,241 
690 LOCATE 11,24: PRINT SPACES (20) 1780 KEY DKF 74,1,242 
700 LOCATE 4,24: PRINT"USAs modstander (C,G,I,K,L,N,S, VD" 1790 KEY DEF 75,1,243 
710 GOSUB 3800: GOTO 1420 1800 KEY DEF 76,1,224 
za0 1810 KEY DEF 77,1,224 
1820 RANDOMIZE TIME 
1830 ' 
KAOS Tegn-definering -------—- 
770 LOCATE 7,1: PRINT SPACES (30) 1850 " 
780 LOCATE 11,24: PRINT SPACES (20); 1860 SYMBOL AFTER 32 
790 LOCATE 2,16: PRINT SPACES (8) 1870 SYMBOL 200, 16,56, 68,146, 146,68,56,16 
800 LOCATE 2,17: PRINT SPACES (8) 1880 SYMBOL 201, 0,238, 136,232,40,238,0,0 
810 LOCATE 32,16: PRINT SPACES (5) 1890 SYMBOL 202, 255, 128, 128, 159, 144,144,144, 144 
820 LOCATE 32,17: PRINT SPACES (5) 1900 SYMBOL 203, 255,0,0,255,0,0,0,0 
830 PRINT CHR$(22)+CHR$ (1): INK 3,26 1910 SYMBOL 204,0,0,0,0,255, 0, 0,255 
840 ' 1920 SYMBOL 205,255,1,1,249,9,9,9,9 
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1930 SYMBOL 206, 144,144,144,144, 159, 128, 128,255 080 == inderdel 


1940 SYMBOL 207,9,9,9,9,249,1,1,255 3030 " 
1950 SYMBOL 208, 144,144,144,144,144,144,144,144 3040 TAG 

1960 SYMBOL 209,9,9,9,9,9,9,9,9 3050 FOR b=0 TO 2 

1970 SYMBOL 210,0,127,127,96,96,96,96,96 3060 FOR a=1 TO 6 

1980 SYMBOL 211,0,255,255,0,0,0,0,0 3070 PLOT (a164+96)-82b,296+44b,b+1 

1990 SYMBOL 212,0,0,0,0,0,255,255,0 3080  PRIBT MIDS$("VINDER",8,1); 

2000 SYMBOL 213, 0,254,254,6,6,6,6,6 3090 PLOT (a264+96)-81b,280+45b,b+1 

2010 SYMBOL 214,96,96,96,96,96,127,127,0 3100 PRINT MIDS("vinder",a,1); 

2020 SYMBOL 215,6,6,6,6,6,254,254,0 3110 NEXT a 

2030 SYMBOL 216, 96,96, 96,96,96,96,96,96 3120 NEXT b 

2040 SYMBOL 217,6,6,6,6,6,6,6,6 3130 1F pl=1 THEN n$="USA" ELSE n$=UPPER$ (fjendes (no) ) 

2050 SYMBOL 218,0,0,0,0,255, 255, 255, 255 3140 IF 1.EN(n$)>6 THEN f1=368/LEN(n$) ELSE f1=64 

2060 SYMBOL 219, 255, 255,255,255,255,255,255,255 3150 IF LEE(n$)<7 THEN f2=((6-LEN(n$))832)+96 ELSE f2=96+(64-£1) 
2070 ' j 3160 CLS 4 

2080 " === Grafik-definering ------- 3170 FOR b5=0 TO 2 

2090 " 3180 FOR a=1 TO LEH(n$) 

2100 FOR a=0 TO 5 3190 PLOT (atf1+f2)-8%b, 166+42b, b+1 

2110 tegn$(0)=tegn$(0)+CHRS$ <202)+CHR$ (203) +CHR$ (203) +CHR$ (205) 3200 PRINT MIDS$(n$,a,1); 

2120 tegn$(1)=tegn$(1)+CHR$(208)+"  "+CHR$ (209) 3210 PLOT (atf1+f2)-8%b, 152448b,b+1 


2130 tegn$ (3)=tegn$ (3) +CHR$ (206) +CHR$ (204) +CHR$ (204) +CHRS (207) 3220 PRINT LOVERS (MIDS$ (n$,a,1)) 
2140 tegn$(4)=tegn$(4)+CHR$(210)+CHR$(211)+CHR$ (211)4+CHR$(213) 3230 NEXT a 


2150 tegn$(5)=tegn$(5)+CHR$(216)4+"  "+CHR$ (217) 3240 NEXT b 

2160 tegns$(7)=tegns (7) +CHRS$ (214) +CHRS$ (212) +CHRS$(212)+CHR$(215) 3250 TAGOFF 

2170 NEXT a 3260 + 

2180 tegn$(2)=tegn$ (1): tegn$(6)=tegns (5) ANE DS rese Bytiept == 

2190 PAPER 0: PRINT CIHR$(30)+CHR$ (11) 3280 " 

2200 PRINT CHR$(22)+CHR$ (1) 3290 CLEAR 

ga10o! 3300 ON BREAK GOSUB 4110 

2220. ! nærer Slagmarke tegnes ——————— 3310 PEN 2:PAPER 1:CLS 3 

2230 " 3320 LOCATE 4,22: PRINT" (C,G, I1,K,L,W,S, VD)" 

2240 FOR t1=1 TO 6 3330 GOSUB 3800 

2250 FOR t2=3 TO 0 STEP —1 3340 LOCATE 6,22: PRINT SPACES (17) 

2260 PEN 2 3350 PAPER 22,0 

2270 PRINT CIRS$(30)+tegn$ (t2) 3360 GOSUB 3910 

2280 PEN 3 3370 IF n0<>7 THEN 3400' en detalje 

2290 PRINT CHR$(30)+tegn$ (t2+4) 3380 LOCATE 3,22: PRINT " Computer - Kammerat" 

2300 PRINT CHR$(30)+CHR$ (22)+CHRS$ (0); 3390 COTO 3410 

2310 PRINT CHR$(11)>+CHR$ (22)+CHRS$ (1) 3400 LOCATE 3,22:PRINT " Computer - Ven 

SES BENTE. 3410 a$=UPPERS (INKEYS): IF a$="" THEN 3410 
3420 IF a$="K" AND no=7 THEN ai=0: GOTO 1860 

2340 PEN 1 3430 IF a$="C" THEN ai=1: GOTO 1860 

2350 LOCATE 5,1: PRINT STRING$ (16,219) 3440 IF a$="V" AND no<>7 THEN ai=0: GOTO 1860 ELSE 3410 

2360 PEN 3 3450 

2370 LOCATE 5,1: PRINT STRINGS (16,218) ERE NE 

2380 PEH 2 3470” 

SSD COCATE 0, 13 FRENTE BERDERSORSLOSERE 3480 IF antal(t1,t2)>=maks THEN GOSUB 3500: p=1 

2400 PRINT CHR$ (22) +CHR$ (0) 3490 RETURN 

2310, 3500 antal(t1,t2)>=0 

SST Styring af enheder: >> 3510 ejer(t1,t2>=0 

2440 IF ai=1 AND nu=1 THEN GOSUB 4280: GOTO 2470 HPag BOERER ERG IE CESARE PHINT BØG 

SER 0 ESS SJSOS LER SVEDER "€ 3540 ttl=t1-1: tt2=t2: GOSUB 3590 


2460 IF nu=0 THEN 6=201 ELSE s=200 


2470 m=antalCx,y) 3550 ttl=t1+1:tt2=t2:GOSUB 3590 


2480 IF m=0 THEN x2=x84+2: y2=y8443 3560 ttl=tl:tt2=t241:GOSUB 3590 

2490 IF m=1 THEN x2=x$4+3: y2=y%4+4 3570 tt2=t2-1: GOSUB 3590 

2500 IF m=2 THEN x2=x24+2:y2=y24+4 3580 RETURN 

2510 IF m=3 THEN x2=x24+3: y2=y324+3 3590 IF (tt1<0 OR tt1>5) OR (tt2<0 OR tt2>5) THEN RETURE 
2520 IF ai=1 AND nu=1 THEN s=200: GOTO 2610 3600 IF ejer(tt1,tt2)=2-nu THEN GOSUB 3630 
2530 LOCATE x2,y2:PRIET CHR$(s) 3610 antal(ttl,tt2)=antal(ttl,tt2)+1 

2540 a$=INKEYS$: IF a$="" THEN 2540 3620 ejer(tt1,tt2)=nu+1: GOSUB 3670: RETURN 
2550 IF a$=CHR$(240) AFD y>0 THEN y=y-1: GOTO 2600 3630 LOCATE tt1s24+2,tt224+3: PRINT ” " 
2560 IF a$=CHR$(241) AND y<5 THEN y=y+1: GOTO 2600 3640 LOCATE tt1æ4+2,tt224+4: PRINT " ”" 
2570 IF a$=CHR$(242) AND x>0 THEN x=x-1: GOTO 2600 3650 RETURE 

2580 1F a$=CHR$(243) AFD x<5 THEN x=x+1: GOTO 2600 3080", 5 

2590 IF a$=CHR$(224) TllEN 2610 ELSE 2540 SGT rr Udskrivning i matrix ————— 


3680 ' 

3690 mmantal (tt1,tt2) 

3700 FOR æÆæ1l TO mm 

3710 IF m=1 THEN x2=tt1æ4+2:y2=tt284+3 
3720 IF m=2 THEN x2=tt1s2443:y2=tt2514+4 
3730 IF m=3 THEN x2=tt1s2$4+2:y2=tt2s4+4 


2600 LOCATE x2,y2: PRINT ”" ":GOTO 2470 

2610 IF ejer(x,y)>=3-(nu+1) THEN 2540 

2620 ejer(x, y)=nutl: antal (x, y)=antal (x, y)>+1 
2630 PEN (201-5)1312+41 

2640 LOCATE x2,y2: PRINT CHR$(s) 


28sg eanaD 0 se NA BSK BK 3740 IF m=4 THEN x2=tt1æ4+3:y2=tt224+3 
2670 ' i; i 3750  LOCATE x2,y2: PRINT CHRS(s) 

2680 " ———--- Placeringskontrol -—---—— 378e ede sik OKSE 

2690 +" 3780 RETURE 

2700 maks=2 3790 

2710 FOR t1=0 TO 5 STEP 5 3800 " ——------ USAs modstander ——————- 
2720 FOR t2=0 TO 5 STEP 5 3810 " y 

2730 GOSUB 3480 3820 a$=UPPERS (INKEY$): IF a$="" THEN 3820 
2740 NEXT t2 3830 IF INSTR("CGIKLESV",a$)=0 THEN 3820 
2750 NEXT t1 3840 RESTORE 5460 

2760 maks=3 3850 FOR t=0 TO 7 

SVO FOR BIS TO 3860 READ fjendes (t) 

2780 FOR t2=0 TO 5 STEP 5 3870 IF INSTR(fjendes (t),a$)<>0 THEN no=t 
2790 GOSUB 3480 3880 NEXT t 

2800 NEXT t2 £ 3890 RETURN 

2810 NEXT t1 3900 ' 

2820 FOR t1l=0 TO 5 STEP 5 (KE ERE SR ok 
2830 FOR t2=1 TO 4 aan ' sardiner Ho SIGE 

2840  GOSUB 3480 3930 vs$=fjende$ (no) 

2850 NEXT t2 3940 IF LEN(v$)=4 THEH lo%$=" "+vs+" 
2860 NEXT tl 3950 IF LEN(v$)=5 THEN 10$=" "+vs+" "= 
2870 maks=4 3960 IF LEE(v$)=6 THEN los=vs+" ” 

2880 FOR t1=1 TO 4 3970 IF LEN(v$)=7 THEN 10%=vs 

2890 FOR t2=1 TO 4 3980 IF LEN(v$)=9 THEN 10$=LEFTS$ (v$,6)+"." 
2900  GOSUB 3480 3990 PRINT 2,CHR$(30)+10$ 

2910 NEXT t2 4000 RETURN 

2920 NEXT t1 4010" 

2930 IF p=0 THEN RETURN Syds Bret te Bor Bills SE 3 
2940 FOR t1=0 TO 5 4030 " 

2950 FOR t2=0 TO 5 4040 FOR fido=200 TO 0 STEP -2 

2960 IF ejer(t1,t2)=1 THEN pl=1 4050 MOVE 0, fido: DRAW 639, fido,0 

2970 IF ejer(tl,t2)=2 THEN p2=1 4060 MOVE 0,400-fido: DRAW 639,400-fido 
2980 NEXT t2 4070 NEXT fido 

2990 NEXT tl 4080 MODE 1 

3000 IF pl=1 AND p2=1 THEN p1=0: p2=0: p=>0: GOTO 2700 4090 RETURE 

3010 " 4100 + 
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510.27. snes. EHacapo-rutise:—————— 

4120 ' 

4130 GOSUB 4020: INK 1,9: INK 2,6: INK 3,15 

4140 colour=>1: PAPER 0 

4150 RESTORE 5990 

4160 FOR t=1 TO 2 

4170 READ farvels 

4180 FOR t2=1 TO LEN(farvels) 

4190 colour=colour+l: IF colour=4 THEN colour=>=1 
4200 PEN colour 

4210 LOCATE t2,t: PRINT MIDS(farvels,t2,1) 

4220 NEXT t2 

4230 NEXT t . 

4240 LOCATE 1,12 

4250 END 

4260 " 

4270 & 

4280 ' Kunstig Intelligens 

4290 ' = 

4300 " 

4310 IF co=0 THEN 4330 ELSE 4470 

4320 ' 

ÆSDIU 1 sees Forsvar sr 

4340 ' 

4350 IF coo=0 THEN 4360 ELSE 4390 

4360 IF x<3 THEN x1=5:f=-1 ELSE x1=0: f=1 

4370 IF y<3 THEN yl1=5: f2=-1 ELSE y1=0: f2=1 
4380 x=x1l: y=y1: co=co+tl: coo=1: RETURN 

4390 FOR t=0 TO 3/4 STEP 1/4 

4400 xl=z(td:yl=2(1.5-2tt) 

4410 fd=1-INT(x1/1.7) 

4420 fe=1-INT(y1/1.7) 

4430 IF ejer(x1,y1)<>1 THEBEN x=xl: y=yl: f=fd: f2=fe: co=1: GOTO 5050 
4440. HEXT t 

4450 f=fd:f2=fe 

4460 co=2: GOTO 4310 

4470 IF co=1 THEN 4480 ELSE 4830 

4480 FOR t=1 TO 3 

4490 IF ejer(xl+ttef,y1>=1 THEN hl(t)=antal (xlttøf,y1):ha=1 
4500 IF ejer(xl, ylttef2)=1 THEN h2(t)=antal (xl, ylttef2):hb=1 
4510 NEXT t 

4520 vl=xl1+tf:v2=y1+f2 

4530 IF ejer(xl, y1)>=1 AFD (ejer(vl,y1)<>2 OR ejer (x1, v2><>2) THEN GOS 


UB %$050:c0…—0: GOTO 4310 

4540 IF ejer(x1l,y1)=1 THEN IF h1(1)=0 AND antal(vl, y1)=2 THEN x=vl: y= 

yl: GOTO 5050 ELSK IF h2(1)=0 AND untulCx1, v2)=2 TIIEN xoxl:y våz 

: GOTO 5050 

4550 IF ejer(vl,v2)=1 AND antal (vl,v2)=3 AND h1(1)>)<2 AFD b2(1)><2 THEN 
x>=xl: y=yl: GOTO 5050 


4560 IF ha=0 AND hb=0 THEN 4570 ELSE 4610 

4570 IF ejer(x1l,y1>=0 THEN x=>=xl1: y=yl: GOTO 5050 

4580 IF antal(vl,y1)<2 THEN x=vl:y=yl: GOTO 5050 

4590 IF antal (x1,v2)<2 THEN x=xl: y=v2: GOTO 5050 

4600 co=2: GOTO 4310 

4610 IF ha=1 THEN 4620 ELSE 4720 

4620 IF hl(1)=2 AND ejer(x1, y1)=2 THEN x=xl: y=yl: GOTO 5050 

4630 IF hl(2)=2 AND ejer(vl,y1)=2 AND antal(vl, y1)=2 THEN x=vl: y=yl: 
GOTO 5050 

4640 IF ejer(x1,y1>=0 THEN x=x1: y=yl: GOTO 5050 

4650 IF hl(2)=2 AND ejer(vl,y1><>1 THEN IF hb=1 THEN ha=0:GOTO 4560 
ELSE IF hb=0 THEN 4590 

4660 IF b1l(3)=2 AND ejer(vl+f,y1)=2 AND antal (vl+f, y1)=2 THEN x=vl+f 
:y=yl: GOTO 5050 

4670 IF bl<1)=1 AND h1(2)<2 AFD ejer(x1l,y1)=2 THEN x=xl:y=yl: GOTO 50 
50 

4680 IF h1l(2)=1 AND ejer(vl,y1)<>1 AND antal(vl,y1><2 THEN 4580 

4690 IF h1(2)=1 AND ejer(vl,y1)2<>1 AND antal(vl,y1)=2 AND hb=1 THEN 


ha=0: GOTO 4560 


4700 IF h1(1)=1 AND h1(2)=2 AND hb=0 THEN co=2: GOTO 4310 

4710 ha=0: GOTO 4560 

4720 IF h2(1)=2 AND ejer(xl, y1)=2 THEN x=xl: y=yl: GOTO 5050 

4730 IF h2(2)=2 AND ejer (x1,v2)=2 AND antal(xl,v2)=2 THEN x=xl: y=v2:G 
OTO 5050 

4740 IF ejer(x1l1,y1)>=0 THEN x=xl: y=y1l: GOTO 5050 

4750 IF h2(2)=2 AND ejer(xl,v2)<>1 AND antal (x1,v2>)=0 THEN hb=0: GOTO 
4560 

4760 IF h2(3)=2 AND ejer(x1,v2+f2)=2 AND antal (x1,v2+f2)=>2 THEN x=xl: 


y=v2+12: GOTO 5050 
IF bh2(1)=1 AND h2(2)<2 AND ejer(x1,y1)=2 THEN x=xl: y=yl: GOTO 505 


4770 

o 

4780 IF bh2(2)=1 AND ejer(x1,v2)<>1 AND antal (x1,v2)<2 THEN 4590 

4790 IF b2(2)=2 AND ejer(x1l,v2)<>1 AND antal (x1,v2)=1 THEN IF antal (tv 


1,y1>=2 THEN co=>=2: GOTO 4310 


4800 IF b2(1)=1 AND bh2(2)>=2 THEN co=0: GOTO 4310 

4810 hb=0: GOTO 4560 

4820 ' 

88809, " mme ÅRRE sur 

4840 ' 

4850 co=1 

4860 FOR tl=x1l+f TO x1t42f STEP £ 

4870 FOR t2=yl+f2 TO y1+42f2 STEP f2 

4880 IF ejer(tl,t2)=1 AND antal(t1,t2)=3 THEN GOSUB 5020 
4890 NEXT t2 

4900 HEXT t1 

4910 IF la<>0 THEN 4920 ELSE 4990 

4920 FOR t=0 TO la-1 

4930 ul=sx(t):u2=sy(t) 

4940 IF ejer(ul-f,u2)=2 THEN IF (ul-f=0 OR ul-f=5 AND antal (ul-f,u2) 


=2) THEN x=ul-f:y=u2: GOTO 5050 ELSE IF antal (ul-f,u2>=3 THEN x 

=ul-f: y=u2: GOTO 5050 

4950 IF ejer(ul+f,u2)=2 THEN IF (ul+f=0 OR ul+f=5 AND antal (ul+f,u2) 
=2) THEN x=ul+f:y=u2: GOTO 5050 ELSE IF antal (ultf,u2)=3 THEN x 

=ul+tf: y=u2: GOTO 5050 

4960 IF ejer (ul, u2-f2)=2 THEN IF (u2-f2=0 OR u2-f2=5 AND antal (ul, u2 
-f2)=2) THEN x=ul: y=u2-f2: GOTO 5050 ELSE IF antal (ul, u2-f2)>>3 

THEN x=ul: y=u2-12: GOTO 5050 

4970 IF ejer(ul, u2+12)=2 THEN IF (u2+f2=0 OR u2+f2=5 AND antal (ul, u2 
+f27=2) THEN x=ul: y=u2+f£2:; GOTO 5050 ELSE IF antal«(ul,u2+f2)>=3 

THEH x=ul: y=u2+f2: GOTO 5050 
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4980 
4990 
5000 
5010 
so20 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5800 
5810 
5820 
5830 
5840 
5850 
5860 
5870 
5880 
5890 
5900 
5910 
5920 
5930 
5940 
5950 
5960 
5970 
5980 
5990 
6000 


HEXT t 
x=INT(58RND) : y=INT (58RND) 
IF ejer(x,y)<>1 THEN 5050 
GOTO 4990 
sx(la)=tl:sy(1a)=t2 
la=1a+1l: RETURN 


Nulstil 


ha=0: hb=0: la=0 
FOR t=1 TO 3 
hi(t)=0:h2(t)=0 
HEXT t 

RETURN 


Datalinier 


DATA "Pentagon Løgen er en hommelig loge af" 
DATA "amerikanske generaler, som til hverdag" 
DATA "arbejder med USAs krigsmagt i Pentagon." 
DATA "","I weekenderne tager Pentagon Logen til" 
8 8 8 
DATA "New York, hvor logen har et kontrolrom" 
DATA "og en Amstrad computer med Al  (Kunstig" 
DATA ”Intelligens). Amstraden bruges til at” 
DATA "simulere en amerikansk fjende. lø) Bade" 
DATA ”Amstraden har i alt indbygget 8 fjende-" 
DATA "lande i sit Al-programmel. Disse lande" 
DATA "kan Pentagon Logen frit lave simulerede" 
DATA "kampe mod — dog kun et land ad gangen.”,”” 
DATA "Som ny general for Special Commands 1” 
DATA ”US Army er du blevet medlem af logen," 
DATA "og skal derfor i weekenden med til New" 
DATA "York.”,"" 
DATA "Da Pentagon Logen ikke fra starten kan” 
DATA "forlange, at du er up-to-date med” 
DATA "principperne bag moderne krigsstrategi,"” 
DATA "vil du nu blive orienteret om disse," 
DATA ” Tryk space ned” 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
' 


"Korea", 160, 16,40 
”Vietnam",304,48,216 
"Cuba", 160,112,112 
"Iran", 160,248,264 

" Iran", 160, 352, 352 
"Nicaragua" ,288,248,352 
"Granada", 496,280,280 
"Libyen", 496,304,304 
"Sovjet" ,496,352,352 
”Korea","Vietnam",”Cuba" 
"Iran", "Nicaragua" ,”Granada” 
"Libyen", ”Sovjet" 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
' 


"United States of America har siden” 
"anden verdenskrig spillet rollen," 
"som verdens politibetjent. Rollen” 
"betyder bl.a., at al kommunisme" 
"udenfor Sovjet skal stoppes med" 
"alle midler."”,”” 
"Skemaet viser hvor og i hvilken” 
"periode, denne politik bl.a. er” 
"blevet vist. Iran forviklingen” 
”skyldes dog hovedsaglig religion.”,"" 
"Som general for Special Commands" 
"bar du ansvaret for udkommandering” 
"af SC-enheder. Slagmarken, som” 
"er en af de 8 lande i skemaet, har" 
"en 6x6 matrix, hvor fjendens og” 
"dine enheder kan placeres, dog" 
"ikke begge i samme felt.”,"” 

"Hvert felt kan indholde fra 2-4" 
"enheder, alt efter jordforhold."” 
"Hvis der placeres flere enheder" 
"end forholdene tillader, da vil" 
"enhederne forlade feltet u > ) iøg 
"fordel for de omliggende felter,” 
"uanset om disse felter indeholder" 
"nogle af fjendens enheder.”,"" 
"Slagmarkens 4 kanter og felterne" 
"lodret og vandret mellem dem kan” 
"p.g.a. manglende buskads ikke" 
"anvendes fuldt ud. Derfor kan der" 
”" maximum placeres 2 enheder bod 
”kantfelterne og 3 enheder i felter” 
"mellem kantfelterne., Resten af" 
"felterne kan indbolde 4 enheder." 
"Hvis disse tal overskrides vil" 
"enhederne blive flyttet til de" 
"omliggende felter.”,"”" 

” Ikke alle forviklinger blev til en” 
"amerikansk sejr, men du har nu" 
"v.h.a. denne computer en mulighed" 
"for, at luve verdenshistorien om."”, 
"Pentagon Logen spillet kan spilles” 
”af 1 eller 2 personer. Placering" 
"kan ske med tastatur og joystick." 
"Bruges tastatur, 5) anvendes copy" 
"tasten som placering, og piletast-" 
"erne til flytning. Du kan spille" 
"mod computeren eller mod an anden,” 
…,"% "USAS modstander (C,G,I,K,L,N,S,V)" 


DATA 
DATA 


”Du har escapet Pentagon Logen programmet" 
"Dannicord siger tak før denne gang" 


JABO DATATIPS 
System og procent tips. 
Udskrivning og gevinst 
søgning. 495.00 
20 Ekstra systemer. 

195.00 


samlet køb 600.00 
FDB. 


Intelligent fod — 
bold database. 
345.00 
Leveres til Amstrad 
Cpc 6128 & Joyce . 


FAKTURA. 


Debitor og lagerstyring. 
Måomsregnskab, kontoudtog 
lagerregnskab. s95.00 


LABELPRINT. 

Kartotek, søgning, udskrift, 

kontingentstyring. Labels og 

girokort. 295.00 

BUDGET. 

Få styr på privatøkonomien. 
295.00 

Alle priser incl. 22 %& moms 


Gratis hotline på alle 
programmer. 


van Bolhøj. Skyrervej 78. Fensmark 
4700 Næstved. 03 747461 kl. 19—21. 


JABO 


Styring med Amstrad. 


Hermed en lille artikel, som vil mu- 
liggøre, at din Amstrad kan bruges 
til styring af forskellige ting. Kun 

fantasien sætter begrænsningerne. 


Printerporten på en Amstrad er vel- 
egnet som outputport, ja den er 
faktisk lavet til det. Den påvirkes 
med ordren OUT &EDDD;tal. Tallet 
skal være mellem 0 og 127. Hvis 
tallet er nul vil alle 7 udgange gå la- 
ve (d.v.s. på 0 Volt). Ved 127 går 
alle udgange høje (d.v.s. på 5 
Volt). Alle mellemliggende værdier 
vil sætte et vist antal udgange høje. 
Man regner her i totalssystemet, 
som består af cifrene : 

1248 16 32 64 

For at tænde to eller flere udgange 
bruges summen, hvis man vil tæn- 
de de to yderste skal tallet være 

65, vil man tænde de tre første skal 
tallet være 1+2+4, altså 7. 


DIAGRAMMET 


Elektronikken er meget simpel, den 
forsynes med strøm fra et batteri 
på 4,5 V. eller 9 V. T1 er en NPN 
transistor som gennem modstand 
R2 "føler" på printerporten. Hvis 
porten er høj trækker transistoren 
strøm gennem basis (det midterste 
ben) til stel, herved åbner transisto- 
ren for hovedstrømmen fra batte- 
riet gennem lysdioden til stel. Kort 
kan man sige hvis IND er høj lyser 


dioden. modstanden R1 afhænger 
af batteriet, hvis du bruger 9 volt 
skal R1 være på 330 ohm, ved 4,5 


V på 150 ohm. 
145-9V 
Di 
Ri 
; md 
pind& Rå 
Ov 
ping (HUN f KANAL ViST,) 
Opbygning. 


SEES ENE 


sån cdkredrestssk dgl | 
o=—0 6—=—0 GO æg (ro 77 0 


Et stykke print med de rigtige mål 
rengøres (ståluld el. skurepulver). 
Printbanerne tegnes med en vand- 
fast tush (el. neglelak). Herefter æt- 
ses den i Ferrichlorid til kobberet 
er forsvundetl der hvor tushen ikke 
dækker. Pladen skylles godt med 
vand og tushen fjernes med sprit. 
Hullerne bores. Så starter loddear- 
bejdet. Lod de rigtige komponen- 
ter i de rugtige huller. Husk 
transistor og lytsdioder skal vende 
rigtigt. Til slut forbindes de 7 ind- 
gange og stel på printet med de 
rigtige udgange på printerporten 
med fladkabel og kantkonectorstik, 
der fåes en type som klemmes på 
kablet. (Fortsættes næste side). 
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(Fortsat fra forrige side). 
Her er styklisten :(En kanal) 


d1:  Lysdiode 
T1:  Transistor BC 547 
Ri: Ved 9V 3300hm 
:Ved 4,5V 150 Ohm 
Lidt fladkabel f.eks. 10 leder 
1 Stk. kantconnector 34 polet. 


Til slut et par programeksempler, 
du kan sikkert selv finde på man- 
ge andre løbemønstre. Næste 
gang vil jeg vise hvordan man 
kan styre 220V, og dermed lave 
sit eget rigtige løbelysshow. Af 
andre mulige emner i fremtiden 
kan nævnes: relæstyring, lyskryds 
og Lego. 


10 CLS:OUT &EFFF,0:'Sluk alle 
lamper 

20 LOCATE 10,10:PRINT "D EM 
OG 

30 FOR a=1 TO 7 

50 READ b 

60 LOCATE 10,15:PRINT"Lampe 
nr ";a;" tænder" 

65 LOCATE 10,18:PRINT "Den 
tæller for ";b 

70 OUT &EFF,b 

75 LOCATE 10,24:PRINT" TRYK 
EN TAST FOR NÆSTE " 

80 IF INKEY$="" THEN 80 

100 NEXT 

110 RESTORE: GOTO 30 

120 DATA 1,2,4,8,16,32,64 


Prøv også at ændre følgende : 
30 FOR a=1 TO 14 

120 DATA 
1,2,4,8,16,32,64,64,32,16,8,4,2,1 


og slet linie 80 


God fornøjelse Pauli Damgård. 
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ANMELDELSE : STS-FILE. 


Fleksibelt databaseprogram til 
joycen. 


STS-FILE er et database-pro- 
gram til Amstrad 
PCW8256/PCW8512 og 
PCW9512 fra software-huset STS- 
SOFT, som også kendes fra fi- 
nansprogrammet STS-FINANS. 


Programmet sætter brugeren i 
stand til at registrere alle former 
for data, idet brugeren selv be- 
stemmer opbygningen af databa- 
sen. Denne frihed kombineret 
med en rapport-generator, som 
lader brugeren frit bestemme for- 
men og mængden af uddata, be- 
virker at programmet kan bruges 
til stort set alt, såsom lagersty- 
ring, ejendomsadministration, fo- 
reningskartotek, og meget meget 
mere. 


De enkelte felter kan gøres til gen- 
stand for beregninger, f.eks sam- 
mentællinger, procentberegning 
(moms) o.s.v. og, så man med 
enkelte tastetryk manipulere hele 
databasen eller dele af den, så- 
som indsættelse af postnr og by, 
tilskrivelse af husleje, etc. 


Opret databasen. 


Det første man skal gøre er at de- 
finere sin database. Dette sker i 
modulet "opret/ret databasen'. 
Her fortæller man felt for felt 
hvad databasen består af. Er der 
f.eks tale om et lagerstyrings-sys- 
tem, kunne disse felter f.eks være 
VARENR, VARENAVN, GENBE- 
STILLING, ANTAL, NETTOPRIS, 
MOMS, BRUTTOPRIS, IALT og 
BESTILLINGSDATO. For hvert 
felt skal også angives LÆNG- 
DEN; og TYPEN som kan være 
tekst, numerisk, decimal, dato el- 
ler sum. Tilsidst angives om det 
er et NØGLEFELT. Et nøglefelt er 
en ordningsparameter som regi- 
stret bliver ordnet efter. Dette kun- 
ne f. eks være VARENR og 


VARENAVN, registret kunne så si- 
denhen udskrives i en alfabetisk 
liste efter VARENAVN og nume- 
risk efter VARENR. På sumfelter 
kan indlægges forskellige bereg- 
ningstyper, det kunne f.eks være 
at MOMSFELTET skulle indehol- 
de 22.00% af VAREPRIS, at 
BRUTTOPRIS skulle være NET- 
TOPRIS + MOMS, o.s.v. En rec- 
ord kan bestå af, max 20 felter 
og ialt 255 tegn. Programmet kan 
køre både på A og B drevet så 
det er en kombination af record- 
størrelse og antallet af nøgler der 
bestemmer hvor mange poster 
der er plads til. 


Denne definition er dog ikke bin- 
dende. Man kan til hver en tid gå 
ind og ændre, slette og oprette 
nye felter, uden at man mister al- 
lerede indtastede data. D.v.s. 
man er fuldstændig frit stillet for 
sidenhen at rette i sin database. 


Inddatering 


Når selve databasen er oprettet 
kan man gå i gang med at indda- 
tere. Her får man ind i modulet 
for inddatering. Nu fremtræder 
skærmen som et kartotekskort, 
opbygget som man har defineret 
i databasebeskrivelsen. Hvert felt 
har det navn det fik ved oprettel- 
sen. Under selve registreringen 
indsættes posterne øjeblikkeligt i 
nøgletabellerne. Der er altså ikke 
nogen sorteringer. Ved rettelse af 
tidligere indtastede poster kan 
man søge på alle felter, også 
med blinde karakterer, og pro- 
grammet finder altid en post så 
tæt som muligt på det ønskede. 
Så kan man bladre sekventielt 
frem og tilbage til man finder den 
rette eller bare løbe gennem regi- 
stret. 


Macro-modulet. 


I dette modul kan man manipule- 
re med hele registret eller dele af 
dette, med enkelte tastetryk. Man 
kunne f.eks. slette poster ældre 


end en bestemt dato, eller poster 
markeret på en bestemt måde 
(f.eks. udmeldt). Man kunne be- 
regne sumfelter for visse poster 
eller opskrive priser:med en vis 
procent. Disse operationer kan 
gemmes på diskette og sidenhen 
udføres efter behov, f.eks. må- 
nedsvis. 


Rapport-generator. 


| dette modul går man ind på 
skærmen og definerer hvordan 
ens udskrifter skal se ud. Over- 
skrifter, dato, hvilke felter fra data- 
basen def skal med, hvor mange 
poster der skal være på en side, 
summer pr. side og summer ialt. 
Man kan også definere girokort, 
etiketter eller rykkere som udskri- 
ves for den enkelte, idet det står 
fuldstændig frit at have tekst imel- 
lem de forskellige oplysninger. 


Udskrift. 


Her udskrives enten til skærm el- 
ler printer hele databasen eller 
dele af den. Fra rapport-gene- 
ratoren hentes formatet af udskrif- 
ten og fra makro-modulet hentes 
oplysninger om hvilke udpluk af 
registret man ønsker at få med i 
udskriften. 


Konklusion 


Til en pris af 998,- kr. incl. moms 
får man stillet et værktøj til rådig- 
hed hvor kun fantasien stiller 
grænser for hvad man kan bruge 
det til. Alt fremtræder med et vir- 
keligt profesionelt tilsnit og er 
nemt at bruge. Muligheden for til 
hver en tid at ændre sin databa- 
se, gøre felter større/mindre op- 
rette nye eller fjerne felter, uden 
at allerede indtastede data går 
tabt, er en virkelig stærk facilitet. 
På denne facon kan man tillade 
sig at begå fejl i opstarts-definitio- 
nen af databasen, uden at det får 
kansekvenser. Man ændrer blot 
sidenhen definitionen. 


STS-FILE er virkelig ”value for 
money, og en fornøjelse at arbej- 
de med. 


T. Petersen. 


PASCAL FOR BEGYNDERE. 


Hermed starter vi en serie om 
PASCAL. Serien vil i første om- 
gang rette henvendelse til begyn- 
dere og mindre øvede. Hvert 
afsnit vil være opbygget sådan, 
at der vil være en belysning af 
nogle programmerings-logiske 
teknikker, og disse vil være efter- 
fulgt af nogle kommandoer som 
beskrives. Herefter vil komme en 
beskrivelse af benyttelses formål 
og nogle eksempler. 


Udgangspunktet vil være stan- 
dard PASCAL. Nogle eksempler 
på standard PASCAL-compilere 
er POLY PASCAL og TURBO 
PASCAL version 2.0 og 3.0 . Der 
er et problem i at kalde noget for 
standard i dag. Med dette me- 
nes, at der i moderne PASCAL 


compilere findes en lang række 
ekstra faciliteter, som ikke er be- 
skrevet fra første færd i forbindel- 
se med den oprindelige forskrift 
for PASCAL. Men generalt gæl- 
der det, at de fleste compilere, er 
i stand til at reagere normalt på 
standard PASCAL kommandoer 
og syntaks. 


Udgangs punktet i denne serie, 
vil være TURBO PASCAL. Vi har 
tilrettelagt det sådan, at der ikke 
vil være problemer uanset hvilken 
version der bliver brugt, dog skal 
man være opmærksom på, at der 
i version 4.0, og version 5.0 skal 
bruges en tilføjelse der hedder 
uses turbo3;. 

Denne skal bruges umiddelbart 
efter, at program definitionen er 
defineret - herom senere. 


I dette første og måske lidt spar- 
somme afsnit af serien, appelerer 
vi til at man anskaffer sig en com- 
piler, som man så er i stand til at 
kunne bruge fra næste afsnit af 
bladet. Hvis der skulle være tvivl 
fra din side om hvilken compiler 
der vil passe dig bedst, er du vel- 
kommen til at kontakte os med 
henblik på vejledning. Grunden til 
at vi ikke her vil anbefale en com- 
piler, er at der i dag findes en 
lang række compilere på marke- 
det, og at det ville være utilfreds- 
stillende, at anskaffe sig en 
compiler der måske på senere 
sigt ikke kan opfylde ens behov, 
eller man anskaffer sig måske en 
der er for avanceret i forhold til 
ens ambitioner og derfor får in- 
vesteret for meget på dette pro- 
jekt. 


Fordelen ved PASCAL, er at det 
er et rimeligt nemt sprog at gå til, 
og det kører forholdsvis hurtigt 
når det er kompileret (Klar til 
brug). En lang række professio- 
nelle programer er med tilfreds- 
hed skrevet i PASCAL. 


Vi starter op rigtigt i næste num- 
mer T. Petersen. 
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REVIEW : 
Fleet Street Editor Plus. (FSE.) 


Jeg påråber mig ikke, dette er en 
experts udtalelse; men min per- 
sonlige mening -om hvorfor/hvor- 
for ikke, jeg vil købe det testede 
program. 


For det første ville jeg aldrig kø- 
be et program, jeg ikke kunne la- 
ve en arbejdskopi af; aldrig. Det 
kan man i virkeligheden ikke af 
FSE. Master-disketten skal bru- 
ges ved hver opstart. Uanset res- 
ten kan kopieres, hvad hvis 
master går i koks? Nå, man be- 
gynder med barnlig glæde at star- 
te prg. (selvfølgelig havde jeg 
ikke læst manualen, gør du?). 
Prg. begynder: begynder og be- 
gynder, det gør det så i ca 4 mi- 
nutter inden, man er færdig med 
at skifte disketter. De første par 
gange stoppede prg.; jeg fandt 
senere frem til, at forskellige kom- 
binationer af påhæng bag på joy- 
cen, samt bl.a. speedisk og 
write-hand-man m.v. i maskinen, 
bare skulle væk så virkede prg. 
Dette gør sig forøvrigt også gæl- 
dende for andre programpakker. 
Så, vil programmerne ikke funge- 
re ordentligt, ligger fejlen måske 
her. 


I princippet vil en "boot" disk kun 
være spild af endnu en diskette, 
når master altid skal bruges alli- 
gevel. Efter at havet kigget med 
benovelse på det færdige resul- 
tat, prøvede jeg de viste taster. 
Men da det så rimeligt fremmed 
ud, ville jeg ud af prg. og begyn- 
de påny, efter at have "indtaget" 
manualen. Diskette husholdnin- 
gen blev konsulteret, ak og ve! in- 
gen retur CP/M. Lede, kigge og 
prøve; men kunne ikke komme 
ud. Hidsigt slukkedes fru Joyce 
og undertegnede gik til kaffe. 
(PS; jeg ved stadig ikke, hvordan 
man kommer ud uden at slukke.) 
Nå, efter indtagelse af kaffe og 
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hurtigløb af manualen, skulle jeg 
prøve med fornyede kræfter. 


Manualen! Det var da et digert 
værk på engelsk, selvfølgelig. 
Jeg vidste allerede nu, at den 
kom jeg aldrig igennem. Men det 
skal siges, den er velskrevet og 
logisk opbygget. Det er så abso- 
lut en af de bedste, jeg har set. 
Der er index og ikke mindst en 
guided tur. Den oplyser, at man 
kan bruge 8256 og 8512. Jatak, 
har man ikke en 8256 med udbyg- 
get ram, bliver det en noget spe- 
get affære. En 8512 tror man er 
lykken, men her må jeg også 
skuffe dig. Der kan IKKE skrives 
til drev "B" kun læses derfra. Tem- 


melig dumt synes jeg. Jaså, man 


kunne bruge mus! Så Det var 
selvfølgelig ikke den, jeg havde, 
men en anden. Dog min lyspen 
kunne bruges, dog kun i grafik 
sektionen. Der står man skal be- 
gynde med FSE8512 M. Det kan 
virke frustrerende ikke at kunne 
finde denne .com fil. Men hjælp 
er på vej. Den almindelige 
FSE8512.com indeholder nemlig, 
både M og L (lyspen) tilføjelser- 
ne. Fin detalje. NOTE, står de- 
sværre ikke fremhævet særlig 
godt, for det er nemlig vigtigt, at 
man ser disse NOTES. Der spa- 
res megen tid ved at hæfte sig 
ved dem, så man ikke før, som 
de små hunde prøver og prøver 
noget, der ikke kan lade sig gøre. 


Guide-tour. Ja det er jo en "dejlig- 
hed", man kan lide. Brugeren bli- 
ver trukket gennem een i forvejen 
opsat/layoutet side. Det tager tid, 
men er besværet værd. Da jeg 
selvfølgelig havde travlt og ikke 
havde en formateret tom diskette, 
måtte jeg ud og lege med disckit. 
Så jeg besluttede mig til, at følge 
bogen slavisk fra nu af. Der indle- 
des med text modul. Hvilket text 
modul. Et helt tekstbehandlings- 
program i sig selv, med mange fi- 
nesser; fint. Dog igen. Der kan 
ikke importeres filer. Jeg har det 
lod i tilværelsen, at hedde Søren- 


sen, så det skulle skrives med 
samme. Jamen dog intet "Ø". Mit 
gade indeholder 2 "Ø'er, bynav- 
net 1 Ø. Fat i manualen. Der stod 
det jo, ALT +/ 0.s.v. Men det vir- 
kede ikke. Ingen ÆØÅ. Så mit 
navn og min adresse virkede be- 
synderlig. HA! tænkte jeg, skift 
FONT. Fulgte bogen "BANG" alt 
stod stille. "Please wait". Jeg ven- 
tede og ventede intet skete alt 
låst!Forfra med diskette gymnas- 
tik. Igennem tekst modulet til gra- 
fik. Av min arm, det virkede 
imponerende og det var det san- 
delig også. Flot grafik bibliotek, 
der kan roteres med grafikken, 
forsørres, formindskes og jeg 
ved ikke hvad. Fint. 


Nu steg kunsten. Layout, som det 
hedder. At lave overskrift, indsæt- 
te tekst og grafik i det næsten fær- 
dige fabrikslayout, var sådan set 
nemt. Men inden, skulle man ha- 
ve kopieret nogle filer fra master- 
disketten over på den tomme 
disk. Kors, programmet ved selv 
hvilke, men kunne kun flytte een 
ad gangen, d.v.s. diskette gym- 
nastik 10 gange pr. stk. værsgo 
at spis. Man kan nemlig kun ar- 
bejde i "A" drevet. Irritafionen hav- 
de nu nået en højde, jeg sjældent 
fornemmer. Jeg har modtta- 
het/købt mange prg. siddet med 
rystende hænder, forventnings 
glæde og hvad ved jeg, den hal- 
ve nat for at få noget nyt til at vir- 
ke. Nu var jeg rystet. At eet så 
udbygget /dyrt prg. O.S,V. Men 
det skyldes vel "M" drevet er fyldt 
til bristepunktet. Nå færdig blev si- 
den og smukt så det jo ud. Det 
hele kan ses med en fiks "VIEW" 
kommando. Udskrivningen skulle 
nu sættes igang. Man kunne sør- 
mi vælge mellem PCW-printeren 
eller andre. High eller low print. 
Ville man vælge low print på 
PCW-printeren ville udskrivnin- 
gen begynde aldeles omgående. 
Jeg valgte dette og trykkede "re- 
turn". CHOCK, skærmen blev til 
stribede gardener og alt blev stil- 
le. Hvor var den øjeblikkelige ud- 


skrivning? Tanken om at skulle 
begynde forfra, slørede mit sind. 
Var mit medlemskab af oliven- 
plukkernes fagforening forgæ- 
ves? Inden blodtrykket gik helt 
agurk, begyndte den "omgående 
udskrift". 


Flot blev det, hvor var jeg go'. 
Der var dog intet Æ/Ø/Å, men 
pyt; skal man lave et blad for en 
engelsk golfklub, er det jo under- 
ordnet. | dette tilfælde ville, de 
mange penge været givet godt 
ud til et virkeligt stærkt program 
med mange finesser. En finesse 
var, at i "Please Wwait" tiden, blev 
det meste af denne artikel skre- 
vet. Man må jo se det positive og- 
så. 


Som prisen antyder ca. lige un- 
der kr. 2000,- . skal man nok væ- 
re lidt mere end en 
Joyce-amatør, der laver blad for 
beboerforeneingen een gang om 
året. Men bevares, har man pen- 
gene, har jeg ikke set et prg. til- 
svarende i kvalitet, til vor Joyce. 
Kan man nøjes med lidt mindre, 
er der andre prg. i "Bladudgiver" 
branchen, der kan temmelig me- 
get til en langt billigere penge. Al- 
le prg. har visse ting, der kan 
irritere den enkelte, men er pri- 
sen lav, kan jeg nu godt lade mit 
blodtryk stige lidt, jeg kan ihvert- 
fald ikke lave prg. bedre selv. 
Endvidere ser man på priserne 
på prg. der kan det samme til 
PC'er er der jo ingen sammenlig- 
ning. 


At man kommer tilbage til CP/M, 
ved at tage hovedkontakten, kan 
ikke få mig til at afstå fra at købe 
"pakken"; men at der ikke kan la- 
ves en arbejdskopi, det gør ! 


Dion Sørensen - Køge. 
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Fra Bent Donnell har vi modtaget to "Miniprogrammer", der kan konvertere mellem romertal og decimaltal. 


Romertal til Decimaltal : 


10 r0$="MDCLXVI":x=1:MODE 1:PRINT:PRINT TAB(7);"Romertal til Decimaltal":PRINT:PRINT TAB(17);"(S)lut": 
WINDOWZ1,8,33,5,25:FOR z=1 TO 7:READ 1$(2):NEXT:DATA M,1000,D,500,C,100,L,50,X,10,V,5,1,1 

20 INPUTÆ1,"Romertal:";r$:r$ = UPPER$(r$):IF r$="S" THEN END ELSE r= LEN(r$):DIM m$(r),r2(r):FOR q=1 TO 
r:m$(q) = MID$(r$,q,1):NEXT 

30 IF INSTR(r0$,m$(x))=0 THEN PRINT£1,"Findes ikke":ERASE m$,r2:x=1:GOTO 20:ELSE x=X+1:if x< =r 
THEN 30 

40 FOR q=1 TO r:FOR 2=1 TO 7:IF m$(q) =t$(2) THEN r2(q) =t(z):2=8 

50 NEXT:NEXT 

60 r1=r2(1):IF r=1 THEN q=r:GOTO 80 ELSE q=0 

70 IF r2(q+1) > =r2(q+2) THEN ri =r1i+r2(q+2) ELSE IF r2(q+1)<r2(q+2) THEN ri =r1+r2(q+ 2)- 
r2(q+1)"2 

80 q=q+1:IF q<(r-1) THEN 70 ELSE PRINTÆ1,"Decimaltal:";r1:ERASE m$,r2:x=1:GOTO 20 


Og den anden vej : (Decimaltal til Romertal). 


10 MODE 1:PRINT TAB(7)"Decimaltal til Romertal":PRINT:PRINT TAB(11)"(Kun 4 cifre)":PRINT:PRINT TAB(11)"0 
= Slut":WINDOW1,7,33,7,25 

20 INPUT£1,"Decimaltal:";a1:IF a1=0 THEN END ELSE a$=STR$(a1):a= LEN(a$):a$ = MID$((a$),2,a):a=a-1:1F 
a>4 THEN 20 ELSE a$=STRING$((4-a),"0") +a$:FOR q=1 TO 4:j$(q) = MID$(a$,q,1):NEXT 

30 r$="":m =VAL(j$(1)):IF m=0 THEN 40 ELSE r$=r$+STRING$(m,"M") 

40 m=VAL(j$(2)):IF m=0 THEN 60 ELSE IF m=1 THEN r$=r$+"I":GOTO 60 ELSE IF m<4 THEN 

r$ =r$+ STRING$(m,"C") 

50 IF m=4 THEN r$=r$+"CD" ELSE IF m> =5 AND m<9 THEN r$=r$ + "D":m = m-5:r$ =r$ + STRING$(m,"C"): 
ELSE IF m=9 THEN r$=r$ +"CM" 

60 m=VAL(j$(3)):IF m=0 THEN 80 ELSE IF m<4 THEN r$=r$ + STRING$(m,"X") ELSE IF m=4 THEN 

r$ =r$ +"XL" 

70 IF m> =5 AND m<9 THEN r$=r$ +"L":m = m-5:r$ =r$+ STRING$(m,"X") ELSE IF m=9 THEN r$=r$+"XC" 
80 m=VAL(j$(4)):IF m<4 THEN r$=r$+STRING$(m,"I") ELSE IF m=4 THEN r$=r$+"IV" 

90 IF m> =5 AND m<9 THEN r$=r$+"V":m= m-5:r$ =r$ + STRING$(m,"I") ELSE IF m=9 THEN r$=r$+"1X" 
100 PRINTÆ1,"Romertal:";r$:GOTO 20 


FINANS/BOGHOLDERI PROGRAM - Fortsat fra sidste nummer. 


Idet vi snart har afsluttet register-afdelingen af dette program, bør vi lige tilføje følgende : Under oprettelse af så- 
vel debitorer, kreditorer og varenumre angiver linierne på skærmen det maximale antal tegn, som kan anvendes. 
Endvidere kontonummeret for debitorer og kreditorer indeholde et bestemt antal tegn, nemlig h.h.v. 4 tegn og 5 
tegn. Inden i går i gang med indtastning af denne listning skal det yderligere bemærkes, at programmet i øjeblik- 
ket testes, og dette har resulteret i enlelte ændringer. Betydningen af disse ændringer er dog uden betydning for 
dig, når blot du husker at indtaste dette nummers listning efter sidste nummers. (enkelte nye linienumre afløser. tid- 
ligere). 


God fornøjelse ABC. Program listning er på følgende side. 


480 LoxLls om" DUER KR OUPSTAKT BN FEJL ! TAST "Kb 
TURN'  -OG PRØV IGEN ”": GOSUB 570 
1240 GET 1: IF rang=1 AND dk$<start$ TIIEN GOTO 1330 ELSE IF or 
ang=1 AND dk$>slut$ THEN GOTO 1350 
1250 IF rang=2 AND dn$<start$ THES GOTO 1330 ELSE IF rang= 
AND dn$>slut$ THEN GOTO 1350 
1260 IF rang=3 AND da$<start$ THEN GOTO 1330 ELSE IF rang=3 
AND da$>slut$ THEN GOTO 1350 
1270 IF rang=4 AND dt$<start$ THEN GOTO 1330 ELSE IF rang=4 
AND dt$>slut$ THEN GOTO 1350 
1310 IF dt$<>" ” THEN LPRINT TAB(26) "TLF. NR. 
:a=(LEH(dt$))>+10: FOR n=1 TO a:LPRINT CHR$(8);: NEXT n 
1370 PRINT FNat$(38,11,7"”);: INPUT "",dkd$: LSEBT dk$=UPPERS (dk 
d$): IF dkds="" OR dkd$="0" THEN GOTO 1800 ELSE IF dkds="999" 
THEN GOTO 3 
140 
1405 dn1$=dn$:dals=das:dt1ls=dts 
1505 IF n$="" AND a$="" AND t$="" THEN GOTO 1790 
1510 z=5: GOSUB 1560: GOSUB 890: GOTO 1790 
1570 res=SEBEKKEY(1,2,2,dn1$): IF res<>0 THEN GOSUB 480: GOTO 1 
790 
1640 res=SEEKKKY (1,2,3,da1$): IF res<>0 THEN GOSUB 480:G0TO 1 
790 
1705 IF dtis=" ” THEN GOTO 1780 
1710 res=SEEKKEY (1,2,4,dt1$): IF res<>0 THEN GOSUB 480:GO0TO 1 
790 
1840 PRINT screen2$%;cls$: PRINT screen1$: GOSUB 580: PRINT skju 
lts$: GOSUB 2530 
1850 IF FINDS("kreditor.dat")="" THEN z=8: GOSUB 2880: IF fejl 
$="F" OR fejl$="f" THEN GOTO 2120 ELSE GOSUB 500: GOTO 1850 
1852 GOSUB 2790 
1854 IF valg$="A" OR valg$="a" THEN CLOSE fi12%: GOTO 2120 
1856 IF valgs="U" OR valg$="u" THEN GOTO 1922 
1858 IF valgs="Æ" OR valgs="æ" THEN GOTO 1960 
1860 IF valg$="S" OR valg$="6" THEN GOTO 1904 
1862 GOSUB 2650 
1864 PRINT FNHat$(38,11,” 
1,772; INPUT ”", kkds 
1866 IF kkd$="" OR kkd$="0" THEN GOTO 2110 
1868 IF LEHCkkd$)<>6 THEN PRINT FHats(38,11,” 
64 
1870 kkd$=UPPERS (kkd$): LSET k$=kkd$: res=SEEKKEY (2,2, 1, kkd$): 
IF res=0 THEN GOSUB 2930: GOTO 1864 
1872 PRIET FNat$(38,13,"”");: INPUT "", knk$ 
1874 PRINT FNat$(38,15,"");: INPUT "”, kaks 
1876 PRINT FNat$(38,17,7”");: INPUT "", kpks 
1878 PRINET,FNat$ (38, 19,7"); : INPUT "", ktks 
1880 IF ktk$="1" THEN GOSUB 2700: GOTO 1864 
1882 knk$=UPPER$ (knk$) : kak$=UPPERS (kak$) : kpk$=UPPERS (kpk$): k 
tks$=UPPERS (ktk$) : GOSUB 2940 
1884 LSET n$=knk$: LSET a$=kak$: LSET pb$=kpks$: LSET ts$=ktks: LS 
ET m1$=MKD$ (0): LSET m2$=MKDS$ (0): LSET m3$=MKDS (0): LSET m4 $=HK 
D$(0): LSET m 
5$=MKD$ (0): LSET m6$=MKDS$ (0): LSET m78$=MKDS (0): LSET m8$=MKDs (0 
>: LSET m9$=MKDS (0): LSET m0S=MKDS (0) 
1886 LSET 0$=MKS$ (dato): LSET sa$=MKDS$ (0): LSET s$=XKSS (0): LSE 
T m11$=MKD$ (0): LSET m$=MKDS (0) 
1888 res=ADDREC(2,2,1,k$): IF res<>0 THEN GOSUB 2960: GOTO 211 
o 
1890 res=CONSOLIDATE (2) 
1892 res=SEEKKEY (2,2, 1,k$) 
1894 GET 2:recnr=FETCHREC (2) 
1896 res=ADDKEY(2,2,2,1$%,recnr): IF res<>0 THEN GOSUB 2960: G0 
TO 2110 
1898 res=CONSOLIDATE (2) 
1900 IF z=5 THEN z=>0: RETURN 
1902 GOSUB 2700: GOTO 1864 
1904 z=3: GOSUB 2650 
1906 text$=" INDTAST NR. ELLER NAVN NR.=1 AFSLUTTER 
-ELLERS STARTES FORFRA ":GOSUB 570: PRINT iskjults 
1908 PRINT screen4$;cl1s$: PRINT screen1$: PRINT screen3$;clss: 
PRINT screenls 
1910 PRINT FNat$(38,11,7");: INPUT "", kkd$: IF kkd$<>"" THEN L 
SET k$=UPPERS (kkd$):seek$=k$: rang=1: IF kkd$="1" THEN GOTO 21 
10 ELSE GOTO 
1916 
1912 PRINT FEat$(38,13,"");: INPUT "”, knk$: IF knk$<>"" THEN L 
SET n$=UPPERS (knk$): seek$=n$: rang=2: GOTO 1918 
1914 GOTO 1904 
1916 IF LEN(kkd$)<>5 THEN GOSUB 1920: GOTO 1904 
1918 PRINT ckjullt$:res=SBEKKLY (2, 2, rang, seck$): IF res=0 THEN 
GOTO 3280 ELSE PRINT iskjults$:GOSUB 1920: GOTO 1904 
1920 texts=" KONTOHAVER IKKE FUNDET ! 
TRYK PÅ 'ENTER' ”": GOSUB 570: GOSUB 530: RETURN 
1922 REM UDSKRIFT 
1924 PRINT iskjult$;PRINT FNat$(25,11,"KONTO NR.. 
FNat$ (25, 13,"NAVN.......:"): GOSUB 410 
1926 sum=0:; PRINT FNat$(38,11,7");: INPUT ”", starts: IF starts= 
"" THEN GOTO 1928 ELSE PRINT FNat$((38+LEN(start$)),11," / " 
SS INPUT SS, 
sluts$:rang=1: GOTO 1932 
1928 PRINT IFNats (38,13,7");: INPUT ”",utarts: IF start$=""  TIIK 
N GOTO 1924 ELSE PRINT FNat$s$((38+LEN(start$)),13%," / "og: INP 
UT "" ,sluts: 
rung-2: GOTO 1932 
1930 GOTO 1924 
1932 PRINT skjults:res=SEEKRANK (2,2,rang): IF res<>0 THEN GOT 
O 2110 ELSE LPRINT TAB(10) "DATO: ";dato: LPRINT 
1934 GET 2:IF rang=1 AND k$<start$ THEN GOTO 1950 ELSE IF ra 
ng=1 AND k$>slut$ THEN GOTO 1954 
1936 IF rang=2 AND n$<start$ THEN GOTO 1950 ELSE IF rang=2 A 
ND n$>slut$ THEN GOTO 1954 
1938 LPRINT TAB(6); k$, 17 (LEN(x$))1+5; FOR n=1 TO a: LPRINT CUR 
$(8);: NEXT n 
1940 LPRINT TAB(15) USING "448848. 84"; CVDC(5a$),: LPRINT TAB( 
27); ns, 
1942 a=(LEN(1$))+5: FOR n=1 TO a: LPRINT CHR$(8);:NEXT n: LPRIN 
T TAB(56);as 
1944 IF ts$<>" ” THEN LPRINT TAB(27) "TLF. NR.:";tf$,:a 
=(LEN(t$))+10: FOR n=1 TO a: LPRINT CHR$(8);: NEXT n 


:"idts, 


”"): GOSUB 510: PRINT FNats (38,1 


">: GOTO 18 


1735 PRINT 


1946 LPRIET TAB(56); pb$: LPRINT: sum=sum+CVD (sas) 
1950 res=SEEKBEXT (2,2) 

1952 IF res<102 THEN GOTO 1934 

1954 LPRINT TAB(26) USING "KREDITSALDO: MAMMEN. NE" ; sum: GOTO 
2110 

1960 z=3: GOSUB 2650: GOSUB 420 

2110 GOSUB 520: CLOSE f112% 

2780 RETURN 

2790 REM KREDITOR-FIL 

2800 OPEN ”K",f112%,"kreditor.dat”,”kreditor. ind”, 2 

2810 FIELD 2,6 AS x$,30 AS n$,25 AS a$,25 AS pb$,8 AS m1$,8 
AS m2$,8 AS m3$,8 AS m4$,8 AS m—5$%,8 AS m6$%,8 AS m7$,8 AS m8$ 
,8 AS m09$,8 

AS m0$,8 AS m11$,8 AS m$,8 AS t$,4 AS 0$,4 AS 5$,8 AS sa$ 
2820 RETURN 

2830 REM VARENR. -FIL 

2880 REM FIL-KONTROL 

2890 texts=" REGISTRET MANGLER ..! 

FT DISK='s' OPRET='o' ":GOSUB 570 
2900 fej1ls=INKEYS: IF fej1$<>"F" AND fej1$<>"f" AND fej1l$<>"S 
" AND fej1$<>"s" AND fej1l$<>"0" AND fej1$<>"0o" THEN 2900 
2905 IF z=8 THEN z=0: IF fej1$="0" OR fejls="o" THEN CREATE 2 
.”kreditor.dat","”kreditor. ind”,2,208: CLOSE 2: RETURN 

2910 IF fejls="0" OR fejls="0o" THEN CREATE 1,”debitor.dat"," 
debitor. ind”,2,138: CLOSE 1 

2920 RETURH 
2930 texts=" 
PÅ "ENTER" 
: RETURN 
2940 texts=" 


FORTRYD=' 1" SKI 


KONTOEN ER OPTAGET TRYK 
”" :GOSUB 570: PRINT skjults: GOSUB 530 


KUNDEN OPRETTES 

”" :GOSUB 570: PRINT skjult$: RETURN 
2950 texts=" ÆNDRINGER UDFØRES ..... BEKRÆFT VED AT TAST 
E "ENTER' FORTRYD='f' ":GOSUB 570: PRINT skjults: RETURN 
2960 texts=" FEJL 111 KUNDEN ER IKKE OPRETTET ! 

-TRYK PÅ EN TAST ”": GOSUB 570 
2970 1$=INKEYS: IF i$="" THEN 2970 
2980 RETURN 
2990 GET 1:REM SKÆRM 
3000 PRINT FNat$s(38,11,"");dks 
3010 PRINT FNats (38,13,"");dns 
3020 PRINT FNat$(38,15,""”);das 
3030 PRINT FEHat$(38,17,"");dps 
3040 PRINT FNat$ (25, 19,"TLF. ER....: 
RETURN 
3050 PRINT FNat$s (25,21,"PRIMOSALDO., 
.$8"; CVDC(p$) 
3060 PRINT FNats (25,23,"0PRET. DATO: ")>;CVS(ds) 
3070 PRINT FNats(25,24,"seneste reg."): IF z=4 THEN z=0: RETUR 
H 


");dt$: IF z=7 THEN z=0: 


”");: PRINT USING "HÆNNER 


3080 texts=" Tast 'v' for at søge videre -eller 
s tryk på 'ENTER' ”": PRINT skjults$: GOSUB 570 
3090 1$=IEKEYS: IF i1$<>CHR$(13) AND 1$<>"v" AND 1$<>"V” THEN 


3090 
3100 IF z=6 THEN z=0: RETURN 
3110 IF 1$=CHR$(13) THEN PRIFET screen3$;cls$: PRINT screenls: 
PRIET screcn4$;cls$: PRINT screen1$: GOTO 1050 
3120 res=SEEKNEXT (1,2): IF res<102 THEN PRINT screen3s;clss:P 
RINT screen1s$: GOTO 2990 
3130 texts=" KONTOHAVER IKKE FUNDET ! 

TRYK PÅ 'ENTER' ”: GOSUB 570: GOSUB 530: 1$=>CHR$ (13): 
GOTO 3110 
3140 text$=" INDTAST DET NØGLE-DATA SOM ØNSKES SLETTET 

-ELLERS TASTES "RETURN ":GOSUB 570 
3150 PRINT FNat$(38,13,"");: ISPUT "",n$: IF n$<>"" TIIEN rang= 
2: LSET dn$=UPPERS$ (n$): seek$=dn$: GOTO 3190 
3160 PRINT FHat$(38,15,"");: INPUT "",a$: IF a$<>"" THEN rang= 
3: LSET da$=UPPERS$ (a$): seeks$=da$: GOTO 3190 
3170 PRINET FNat$(38,19,7"");: INPUT ”",t$: IF t$<>"" THEN rang= 
4: LSET dt$=UPPERS (t$): seeks=dt$: GOTO 3190 
3180 GOTO 1360 
3190 res=SEEKKEY (1,2, rang, seek$) 
3200 IF res<>0 THEN GOSUB 3250: GOTO 3140 
3210 z=6: GOSUB 2990: IF i1$=CHR$(13) THEN res=DELKEY (1,2)2:IF r 
es>103 THEN GOSUB 480: GOTO 1800 
3220 IF i1$=CHR$(13) THEN GOSUB 400: GOSUB 520: PRINT iskjults: 
GOSUB 3240: GOTO 3140 
3230 res=SEEKNEXT (1,2): IF res<>0 THEN GOSUB 1150: GOSUB 3240: 
GOTO 3140 
3240 PRIET screen4$;cls$: PRINT screenl$: PRINT screen3$;clss: 
PRINT screen1$: RETURN 
3250 PRINT skjults:texts=" 

TRYK PÅ "ENTER" 

3260 1S$=INKBYS: IF 1$<>CHR$(13) THEN 3260 
3270 PRINT iskjults$: RETURN 
3280 GET 2:REM SKÆRM , 
3290 PRINT FNat$ (38,11,""); ks 
3300 PRINT FHNats (38, 13,7"); ns 
3310 PRINT FNat$(38,15,"");a$ 
3320 PRINT FNat$(38,17,"");pbs 
3330 PRINT FNat$ (25, 19,”TLF. ER....: 
ETURN 
3340 PRINT FNat$(25,21,"KREDITSALDO: 
8"; CVD(sa$) 
3350 PRINT FNat$ (25,23,"0PRET. DATO: 
3360 IF z=4 THEN z=0: RETURN 


KONTOHAVER IKKE FUNDET ! 
”": GOSUB 570 


”);t$: IF z=7 THEN z=0:R 
”);: PRINT USING "FREE 


"2; CVS(0$) 


3370 texts=" Tast 'v' for at søge videre -eller 
s tryk på 'ENTER' ": PRINT skjults: GOSUB 570 
3380 1$=INKEYS: IF 1$<>CHR$(13) AND 1$<>"v" AND 1$<>"V" THEN 


3380 
3390 IF z=6 THEN z=0:; RETURN 
3400 IF 1$=CHR$(13) THEN PRINT screen3$;cls$:PRINT screenls: 
PRINT screen4$;cls$: PRINT søcreen1$: GOTO 1904 
3410 res=SEEKNEXT(2,2): IF res<102 THEN PRINT screen3$;clss:P 
RINT screenis$: GOTO 3280 
3420 texts=" KONTOHAVER IKKE FUNDET ! 

TRYK PÅ 'ENTER' " ;GOSUB 570: 008UB 530: 18=CIIRS (13): 
GOTO 3400 
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Review: DAATAfax 
Da programmet er så brugerven- 
ligt, at alle kan deltage vil jeg ikke 
gå i detaljer, men vandre lidt 
rundt og over programmet. 


Det første der slog mig, var den 
besynderlige stavemåde, men 
det skyldes måske, konflikt med 
andre firmaers faxnavne. Det 
næste er jo Kempstons beskyttel- 
sessyndrom, der gør at man ikke 
kan lave sig en arbejdsdisk "bo- 
ot"disk, idet der bruges gammelt 
format som Joyce ikke kan læse 
ved opstart.Vi kan lige så godt ta- 
ge det med det samme, Kemp- 
ston vil åbenbart ikke lave 
programmer der vil køre med an- 
dre mus end deres egen. Jeg 
selv kunne ikke drømme om at 
købe en anden mus, når jeg har 
indvesteret i et stk. af andet fabri- 
kat. Tværtimod! kommer der et 
lignende program der kan bruge 
min mus, så vil jeg hellere købe 
det istedet for Datafax. Ikke fordi 
Datafax er et dårligt program, det 
er det langt fra. 


Lad os kigge lidt nærmere på 
selve programmet, som er modul- 
opbygget og besidder den egen- 
skab, at man kan gå fra modul til 
modul uden at skulle over CPM, 
endvidere er ikoner hovedstenen 
ved hjælp af funktionstasterne, 
meget smukt og meget smart. 
Den medfølgende frimærkestore 
manual har man så at sige ikke 
brug for, så nemt og logisk er 
presentationen af funktionerne. 
Det er forøvrigt den eneste manu- 
al jeg nogensinde har læst helt. 
Selve disketten har starten på 
den ene side og 2 konverterings 
programmer på den anden. Mo- 
dulerne består af fig : 


Aftalekalender(Diary) 


Telefonbog 
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Notesblok 
Kalendar 


For at importere filer fra andre 
programmer, så som Locoscript 
og grafik programmer, findes 
der de 2 com filersom gør jobbet 
fint. Man loader ved at skrive daa- 
tafax, det syntes jeg var rimeligt 
langt, så jeg døbte det straks om 
til fax, men da man bliver i pro- 
grammet ved opstart, ville CPM 
pludselig ikke kendes ved navnet. 
Jeg lavede derfor en dir: og det 
eneste der var på disketten var 
nu pludselig Daatafax igen. Jeg 
fattede ikke en pind, for så var 
"Fax" ved en senere lejlighed 
pludselig tilbage igen! men en dir 
af disken viste besynderlige ting, 
så det må have noget med kopi- 
beskyttelsen at gøre. 


Må, jeg fik en flot grafik på skær- 
men og ikonerne var ikke til at ta- 
ge fejl af. Jeg trykkede på Diary, 
og programmet spurgte om det 
skulle loade Diary.dat filen. Nå 
tænkte jeg, sådan en har jeg ikke, 
og svarede yes. Findes ikke sva- 
rede programmet, men jeg vil 
gerne lave en til dig. Kan man 
måske bruge B:drevet ved at skri- 
ve til dette? det kunne man. Let 
og elegant blev jeg spurgt: CON- 
DENCED? Hvad var nu det? Det 
viste sig at denne fil blev på 
120k. en normal som man også 
kunne vælge blev på 80k. Det vis- 
te sig ved udskriften at den nor- 
malt var helt som den plejede at 
være og at den condencerede 
form indeholdt meget mere, så in- 
tet mystislk ved dette. Derefter 
skulle datoen sættes. Hvorfor kun- 
ne den ikke tages fra maskinen, 
hvor jeg har automatisk tid/dato 
ved opstart. Andre programmer 
skal bare have return, så er det 
sat. Skidt-datoen blev sat og en 
aftale kalenderside blev vist. Men 
vor Joyce bevare os, ugenumme- 
ret var forkert, sikke en bøvs. Nå 
man kan vel leve med at trække 1 


uge fra ugenummeret, eller kan 
man?. 


De andre moduler lavede tilsva- 
rende Dat filer. Men de var kun 
på 2k, så de udvides jo ved sene- 
re brug. Jeg vil ikke komme ind 
på detaljer ved de andre modu- 
ler, da de var tilsvarende lette at 
bruge/starte. Derimod vil jeg om- 
tale de 2 ensomme filer "Lo- 
co.com og Graphic.com". Jeg 
satte min arbejds locodisk med 
asciifiler i B:drevet og skrev Loco 
B: prøve,asc B:prøve.dat. Så så 
det ud som var maskinen gået i 
seng. I tre minutter skete der ikke 
noget, BINGO, så var filen kon- 
verteret til en Dat fil. 


Jeg skyndte mig at gå ind i Fax 
igen og importerede filen til no- 
tesblokken. Sikke en masse vola- 
pyk, jeg troede ikke mine egne 
øjne. Forfra igen, og nu skal jeg 
love for at det hele så godt 
ud.Der var Æ Ø Å opstilling og 
det hele. Dog nogle ord var delt 
besynderligt, men de var der al- 
le. Senere fandt jeg ud af, at det- 
te skilleri skyldes Wordwrap 
(linien sluttes automatisk og be- 
gynder næste linie, uden at man 
bruger return), men Fax tæller ka- 
rakterer og ikke ord. Det er fak- 
tisk smart, når man tager 
pladshensyn. Ved udskriften for- 
svandt Æ Ø og Å dog ud af bille- 
det, men det er sådan set OK, da 
man ikke skriver til andre end sig 
selv. 


Min tålmodighed blev sat på prø- 
ve ved konverteringen af grafik fi- 
ler fra Fleet Street (Det gøres på 
samme måde som ved Loco). 
ÆA viste hurtigt disk full, det sam- 
me gjorde M:. HA! tænkte jeg, så 
må der vel være plads på en tom 
disk i drev B: . Det var der ikke, 
så af tidsnød gav jeg op. Jeg tviv- 
ler ikke på at det kan lade sig gø- 
re, blot tegningen er lille nok, 
men det tager lang tid inden ma- 
skinen giver op og melder disk 


full, så den øvelse overlader jeg 
til andre. 


Der er en tilføjelse til program- 
met, efter at manualen blev til. 
Det er en klippe-klistre ting der 
kaldes Clipboard.Jeg vil tilstå, mi- 
ne evner rakte ikke til at jeg blev 
helt dus med denne funktion. 


Telefonbogen er virkelig 
god,der er en søgefunktion der 
går til ,makroerne. Hurtig og præ- 
cis, kan den søge på tal, bogstav 
eller kombinationer. Kunne den 
også ringe op på mit modem, 
som nogle andre programmer 
kan, var jeg nok besvimet. Dog 
der skete noget mærkeligt, da jeg 
lagde nogle numre ind og ville 
søge. Pludselig ville ikonerne ik- 
ke virke! jeg gik ud af program- 
met og ind igen, men det virkede 
stadig ikke. Mystikken lå som en 
tåge over mit kontor. Så slukkede 
jeg FRU JOYCE, og prøvede for- 
fra igen, og alt var nu perfekt, 
hvad mon jeg havde trykket på? 
Nå en ting var jeg spændt på, var 
alle mine telefon indtastninger 
indtakte eller ikke ? Det var de så 
sandelig, programmet saver aut- 
omatisk hele tiden på forskellige 
kriterier. Godt nok Egon. En an- 
den ting der måske ikke er så iøj- 
nefaldende, er brugen af Stop 
knappen. Vil Exit ikke, skal man 
bare bruge stop, så er den 
"fjong". 


Til os Joyce mennesker(eller 
folk i almindelighed med aftale 
kalender behov), der bevæger os 
idet små og ikke kan betale 2-3- 
4000 kr. (og trække det af på 
selvangivelsen) for en smart kro- 
kodilleskindsindbundet timemana- 
ger dims, ja for os er dette en 
smart og billig løsning der aldrig 
bliver umoderne. 


Man skal faktisk være meget 
"upraktisk" for ikke at få det fulde 
udbytte af dette Fax program. 
Selv om man tænker, der er må- 
ske noget smart i manualen jeg 


har gået glip af. Det er der ikke, 
så det kan ikke være nemmere. 
Dog side 17, med alle forkortel- 
serne, er en god ting at klistre på 
Joycens forside. Det skal næv- 
nes, at der er jo da eksempler i 
de filer der medfølger på side 2 
af disketten. Med hensyn til Æ Ø 
og Å, kan man sagtens leve med 
at bruge AA og nul. Som Ø. Æ er 
der jo som sædvanligt på Å tas- 
ten. God Faxing til alle. 


Dion Sørensen 
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Til IO Porten 


Tak for det nye blad, nu håber 
jeg sandelig det kommer stabilt. 


Jeg skriver fordi jeg har et stort 
problem, Jeg håber i kan hjælpe, 
mig med. Jeg er igang med at la- 
ve et illustreret adventure spil i stil 
med Elite. Til det formål har jeg 
lavet et verdenskort på Screen- 
designer. | en rutine hvor jeg be- 
regner hvor langt der er sejlet i et 
givet tidsrum(1 min.) Skal jeg 
kontrollere at skibet ikke går på 
grund. Til dette formål har jeg 
overvejet 3 løsningsmodeller. 


1.Load"KORT.SDS",30000 og 
CALL 30000 og kontroller pen far- 
ve på det felt skibet er på vej ind 

i. 


2.Opret et område (DIM SPXY 
(280,200)) hvor hver enkelt punkt 
på kortet er angivet som land, by 
eller vand. 


3.LOAD "kort.sds",30000 men ik- 
ke Call 30000. Derefter kigge i hu- 
kommelsen med PEEK. 


Jeg kan ikke bruge nogen af dem 
fordi :1. jeg har inddelt verden i 
felter på størrelse med en pixel. 
Hvis jeg skal foretage denne ruti- 
ne hvergang jeg skifter pixel, ta- 
ger det alt for lang tid. 


2. Området er alt for stort. 


3. Jeg forsøgte, men da jeg lave- 
de search i, memory kom der et 
fåtal uforståelige værdier og en 
masse nuller. Jeg havde forventet 
et skærmregister med en adresse 
pr. pixel med penfarve angivet. 
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Kan nogen forklare mig hvordan 
jeg skal håndtere løsning 3, eller 
foreslå en bedre løsning? 


På forhånd tak 
Claus Nielson (213). 


RED. Vi siger tak og kan fortælle 
at vi arbejder i døgndrift for at 
komme frem til en rutine der gør 
det muligt for os at udkomme sta- 
bilt hver gang. Dette skulle være 
en realitet fra det nummer der 
skal udkomme ca. den 15 decem- 
ber. 


Vi har ikke kunnet afse tid til at 
dykke ned i dit problem, men hå- 
ber at der sidder masser af kvik- 
ke medlemmer som er parat til at 
hjælpe dig videre på vej. Vi glæ- 
der os til at se det endelige resul- 
tat her i bladet. 

P.C. 


IO-PORTEN 


Efter en lidt lang søvn ser det ud 
til at i omsider er vågnet op og 
nu vil udgive et blad for os for- 
sømte Amstrad ejere. 


Gode råd er ofte en mangelvare 
og på grund af de forskellige ma- 
skiner Amstrad familien består af, 
vil jeg fremsætte et par betragtnin- 
ger, der måske kan være til nytte. 
Det drejer sig om listninger. 


Der er jo ikke de store forskelle 
mellem det der skal kodes til de 
forskellige modeller, ja det er vel 
endog således, at hvis man har 
det rigtige programmerings- 
sprog. så er der ingen forskel til 


bage ud over selve formatet. 

Men det er ærgerligt at gøre et 
stort arbejde for at opdage, at list- 
ningen var beregnet til en anden 
maskine. Det ville derfor være en 
ide om man kunne købe listnin- 
gerne i den variation, som man 
har maskine og programmerings- 
sprog til, og det kunne endog væ- 
re en id om man kunne købe 
listningerne på diskette i de rigti- 
ge udgaver. 


Samme problem opstår hvis man 
vil udnytte databasen, det er jo ik- 
ke alle der har et modem, og det 
er ikke alle der får et med tiden. 
Så det ville være en fin service, 
hvis man kunne købe en oversigt 
over indholdet i basen og deref- 
ter bestille de disketter man har 
lyst til mod en betaling, der er 
stor nok til at det hele kan løbe 
rundt. 


Håber på et godt blad fremover. 
Med venlig hilsen 


Holger Sørensen 
Føvling 


RED. 


Ja ville det ikke være dejligt, hvis 
det var muligt. Desværre er det ik- 
ke en realistisk mulighed at sæl- 
ge katalog og listninger fra vores 
base. Skulle vi have nogen til at 
hente, kopiere og sende listnin- 
gerne, og samtidig holde det sta- 
digt skiftende og voksende antal 
programmer i basen, ajour, ville 
den pris du skulle betale for en 
listning langt overstige hvad et 


Fortsættes næste side 


modem koster (vi har som be- 
kendt haft et medlemstilbud køren- 
de i lang tid med et Pace/Amstrad 
Modem til kun kr.695) Problemet 
fra det gamle Amstrad Blad med 
manglende angivelse af hvilken 
maskine listningen var beregnet 
for, er vi opmærksomme på og 
som du har set i det første num- 
mer af vores blad, er bladet op- 
delt efter de forskellige maskiner, 
med tydelig angivelse af hvilke list- 
ninger der hører til hvilke maski- 
ner. Vi vil selvfølgelig være 
behjælpelige i det omfang vi har 
kapacitet til det, med at levere list- 
ninger på diskette til medlemmer- 
ne, men vi vil ikke som tidligere 
set, ukritisk sende listninger med 
fejl og mangler til medlemmerne. 
At kontrollere og rette de indsend- 
te listninger er et kæmpe arbejde 
som samtidigt er meget tidskræ- 
vende, så der vil indtil der er opar- 
bejdet et større lager af 
kontrollerede listninger, ikke være 
så stort et udvalg af den vare. Vi 
har dog altid et stort lager af pro- 
grammer til alle Amstrads maski- 
ner, samt andre IBM Compatible 
og CPM maskiner. 


EC. 


IO-PORTEN 


Vedr.Stavekontrol på danske ka- 
rakterer 


Mit problem er, at min Tassword 
6128 er fordansket og det er min 
Tasspell ikke. Et dukument skrevet 
i Tasword bliver godtnok stave- 
kontrolleret, men ord der indehol- 
der danske karakterer nægter Tas- 
word ganske simpelt at acceptere. 


AMSTRAD BRUGER CLUB 


Har nogen et kvalificeret forslag 
til en mulig løsning? 


Med Venlig Hilsen 

Jørgen Holst-Rasmussen 

RED. 

Det er et generelt problem, men 
hvis du ser andetsteds i bladet vil 
du finde en lille annonce fra et 


medlem der tilsyneladende har 
fundet ud af det. 


P.C. 


IO-PORTEN 
Ang. Genfinding af erasede filer. 


Hvis man skal redde en evt. era- 
set fil, kan man i basic skrive: 


POKE 64480,229 
POKE 64432,299 
POKE 64348,229 
POKE 64040,229 


Herefter skal man tilbage til CPM 
via system. Nu står der F9A på 
skærmen. Hvis man skriver dir, 
får man en oversigt over de sidst 
slettede filer. Det er dog kun de fi- 
ler der er blevet slettet fra A:dre- 
vet der er i denne "skraldespand". 
Hvordan får man fat i de slettede 
filer fra M og B drevene?? 


Med venlig hilsen 


Jens Ole Johansen 
EDB Medarbejder 


RED. 


Ja det var jo smart, men ikke hele 
historien idet der også kræves et 
par andre rutiner for at redde de 
tabte filer, bl.a. at man eraser sin 
pip.com for at få et værktøj til at 
hente filerne frem igen, nu hvor 
man har bildt CPM ind at man eri 
brugergruppe nr 229. Samtidig er 
det en forudsætning at man ikke 
har smidt yderligere filer ned i 
"skraldespanden" da de overskri- 
ves når pladsen skal bruges. Alt 
dette kan man læse i NR.9 af Det 
gamle Amstrad Blad hvor jeres 
"gamle" redaktør har en lille artikel 
om netop denne metode til at red- 
de erasede filer. 


Hvad angår spørgsmålet om filer 
fra M og A må jeg desværre med- 
dele at tiden ikke har tilladt os at 
finde frem til de tilsvarende adres- 
ser, fortvivi dog ikke. Hvis man 
har en diskeditor (f.eks. The Kni- 
fe) er det muligt at redde filerne 
fra B drevet, og måske endda fra 
drev M (Dette ville kræve en lille 
ændring af The Knife - og det er 
jo FY!). 


Skulle der være en som sidder in- 
de med en bedre løsning, vil vi al- 
le være glade for at høre om det. 


PG: 
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SUPERCALC FRA BUNDEN. 


| en række artikler vil der blive for- 
talt om, hvordan man bruger Su- 
percalc 2 og 3, da mange 
mennesker har købt den og ikke 
fået det fulde udbytte ud af den, 
bl.a. pga den meget store manu- 
al. 


I det følgende antages det, at det 
er en installeret arbejdskopi, der 
arbejdes med. Se i manualen, 
hvis du ikke ved, hvordan man 
skal lave en sådan. 


Vi starter langsomt i denne første 
del med hvordan tal skal indtas- 
tes. 


Nødvendigt udstyr:CPC6128 eller 


CPC 664 med 64K RAM udvidel- 
se og CP/M+ eller 


CPC 464 med diskette-station, 
64K RAM udvidelse og CP/M + 
eller 


PCW 8256 eller 
PCW 8512 eller 
en IBM-kompatibel PC 


Den version, der bliver brugt her, 
er Supercalc 3 (SC3) dvs. PC- 
versionen, men frygt ikke, hvis du 
har en CP/M+ version (dvs.SC2) 
de grundlæggende funktioner er 
de samme. 


Et spread-sheet kan opfattes som 
en "aktiv' kolonne-bog, men i ste- 
det for, at man skal have en reg- 
nemaskine ved siden af bogen, 
kan man bare indtaste tallene og 
angive hvilke felter, der skal læg- 
ges sammen, og hvor resultatet 
skal stå. Naturligvis er der mange 
flere muligheder, end bare at 
lægge sammen og trække fra, 
men dem kommer vi tilbage til se- 
nere. 
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Et spread-sheet er opbygget af 
celler, hver celle kan indeholde 
tekst, tal eller formler. 


I nederste venstre hjørne af skær- 
men kan man se, hvilken celle 
man er i, og hvilken retning cur- 
soren vil bevæge sig, efter at 
man har indtastet det næste tal. 
Denne funktion hedder AUTO- 
CURSOR. Den er god, hvis man 
skal indtaste lange rækker af tal, 
fordi man slipper for at trykke på 
pile-tasterne efter hvert tal. Funk- 
tionen kan slås fra, hvis man øn- 
sker det. 


Når du starter, skal der gerne stå 
A1. Det betyder, at cursoren vil 
bevæge sig til højre, og at curso- 
ren er i A1, dvs første søjle, første 
række. 


Når du nu har indlæst SC og har 
en blank side, så prøv de følgen- 
de: (hvis du har rykket på curso- 
ren så tryk: VZY) 


Skriv: 100 og tryk på enter, flyt 
derefter til A2 ved at trykke 'ven- 
stre pil' efterfulgt af "ned pil' og 
skriv: 200 og tryk på enter, se nu 
at cursoren selv flytter til A3, skriv 
A1 +A2 og tryk på enter, resulta- 
tet skulle komme med det sam- 
me: 300. 


Det du lige har gjort, er at pro- 
grammere SC til at lægge tallene 
i felterne Atog A2 sammen, og 
skrive resultatet i A3. Prøv nu at 
rette i A1 og/eller A2 og se resul- 
tatet skifte samtidig. Prøv for sjov 
at flytte til A1 og skriv: 


"DEMO 


(ja der skal kun være ét anførsels- 
tegn) og tryk på enter, resultatet 
vil blive at tallet der står i A2, for- 
di SC frasorterer al tekst før den 
regner, vil have værdien 0. Et an- 
førselstegn betyder, at det, man 
indtaster, er tekst, ikke et tal, så 


SC ved at den skal tage hensyn 
til det felt. Man kan dog få SC til 
at opfatte tekst som tal, og der- 

med lave fx en telefon-bog, det 
vil blive forklaret senere. 


Prøv nu at slette hele siden ved at 
skrive: /Z, SC vil da spørge, om 
du er sikker. Tryk på Y. 


Skriv nu nogle tal ind i A-C,1-4, 
dvs at du nu har 12 tal på skær- 
men. Flyt da ned i A6 og skriv: 
SUM(A1:C4) og tryk på enter, re- 
sultatet vil vise sig omgående. 
Funktionen SUM(xx:yy) instruerer 
SC til at lægge alle tallene imel- 
lem xx og yy sammen, det kan 
være en søjle, en række, eller en 
kasse. 


Da du slettede siden, så du må- 
ske, at der var en masse forskelli- 
ge bogstaver. Hvert bogstav er 
en funktion, fx load, save o.l. Her 
følger en kort gennemgang af, 
hvad man bruger de forskellige 
funktioner til: (Side betyder hele 
spread-sheetet) 


A(rrange)--- Sorterer celler i op- 
eller nedadgående retning. 


B(lank)----- Sletter indhold af cel- 
ler eller grafer. 


C(opy)------ Kopierer graf eller 
indhold og udseende af celler. 


D(elete)---- Sletter hele rækker el- 
ler kolonner. 


E(dit)------ Redigerer indhold af 
celle. 


F(ormat)---- Indstiller udseende 
for celle, række, kolonne, eller si- 
de niveau. 


G(lobal)---- Ændrer udseende el- 
ler beregnings-måder på hele si- 
den. 


I(nsert)---- Indsætter tomme ræk- 
ker eller kolonner. 


L(oad)------ Indlæser spread-she- 
et (eller en del deraf). 


M(ove)------ Flytter rækker eller 
kolonner til nye positioner. 


O(utput)---- Sender hele siden el- 
ler indholdet af celler til printer, 
skærm eller disk. 


P(rotect)--- Beskytter en celle, så 
man ikke kan slette den. 


Q(uit)------ Afslutter SuperCalc. 


R(eplicate)- Overfører indhold af 
rækker eller kolonner. 


S(ave)------ Gemmer det aktuelle 
spreadsheet på disk. 


T (itle)----- ”Låser' øverste rækker 
eller venstre kolonner, så de ikke 
scroller. 


U(nprotect)- Det modsatte af 
P(rotect). 


V(iew)------ Viser data som lagka- 
ge, søjle, streg, område, X-Y el- 


ler Hi-Lo graf. (Gælder ikke SC2). 


W(indow)---- Deler skærmen i fle- 
re dele. 


X(eXecute)-- Udfører en .XQT fil. 


Z(ap)------- Sletter spreadsheet 
og udseende fra hukommelsen. 


[--2---2---- Ekstra kommandoer 
(//D er Data Management). 


Vær ikke bange for at prøve de 
forskellige funktioner, dog er 
V(iew) og //D ret svære at bruge, 
så dem skal du måske holde dig 
fra indtil videre, men der kan ikke 
ske nogen skade ved at du bru- 
ger dem. Hvis du farer vild, kan 
du enten trykke på hjælp-tasten 
(F1 for PCer, ? for SC2) og se 
om du får noget ud af det, eller 
trykke på ESCape nogle gange 
(5 gange skulle være nok). 


Til sidst kommer et lille sjovt ek- 
sempel: 


Slet spread-sheetet (/ZY), skriv: 
A2=3 og tryk på enter, flyt til A2 
og skriv et tal og tryk enter, flyt 
nu til A3 og skriv A1+A2 og tryk 
enter, flyt nu tilbage til A2 og 
skriv: A3 +A1 og tryk enter. 


Tryk på ! (shift+ 1) og se tallene 
skifte, hver gang du trykker på ! 
vil tallene skifte. ! er en komman- 
do, der får SC til at beregne hele 
spread-sheetet om igen, normalt 
gør den det, hver gang du indtas- 
ter et nyt tal, men dette kan slås 
fra. Den kan dog også bruges i 
andre situationer, hvor man øn- 
sker at bruge ny-beregnede tal. 


Det, der sker i eksemplet, er at 
de tre celler henviser til hinan- 
den, på grund af den måde SC 
beregner på (venstre mod højre, 
oppefra og ned), vil tallet, der 
bruges til næste beregning, være 
"gammelt", og næste gang man 
trykker ! vil det rigtige tal blive 
brugt for straks derefter af blive 
"gammelt". Prøv evt. at forudse, 
hvad resultatet bliver, næste gang 
du trykker på !. 


Det var alt for denne gang, på 
gen- skriv/læs næste gang. 


J. Paikin. 
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TURBOCAD 


PRODUCENT: PINK SOFTWARE 
16 Hayes Cresent 

GB-London NW11 ODE 

PRIS: ca. £60 

FORMAT: 2 DISKETTER 
KRAV: 2 DREV ELLER HARD 
DISK, 256K 


TurboCAD er et CAD-program 
(CAD = Computer Aided Des- 
ign), og selv om prisen kun er 
ca. £60, er det fuldt på højde 
med mange andre tilsvarende 
produkter. Først og fremmest må 
man skelne mellem et CAD-pro- 
gram og et tegneprogram. Et teg- 
neprogram "husker" billedet som 
en helhed, dvs at billedet bliver 
”husket' som en række punkter på 
skærmen. Hvis man tegner noget 
ovenpå vil den del af billedet gå 
tabt. (Nogle tegneprogrammer til- 
lader, at man kan genkalde slette- 
de dele, men i dette eksempel 
antager vi, at det ikke er tilfældet). 
Et CAD-program husker derimod 
hver del af tegningen som et ele- 
ment, det vil sige at en cirkel vil 
blive husket som kommandoen 
for en cirkel, centrums koordina- 
ter og radius. Hvis man tegner 
ovenpå cirkelen vil man, hvis der 
blot er nogle få punkter synlige af 
den oprindelige cirkel, kunne kal- 
de den frem igen. 


Manualen angiver at 256K er nok 
til dette program, hvilket også er 
tilfældet, hvis man ikke skal lave 

noget alt for indviklet. 


CAD-programmers virkemåde 
kræver altid meget hukommelse. 
CAD-programmer henvender sig 
til personer der skal tegne præci- 
se tegninger, det være sig in- 
geniører, arkitekter og lignende. 
TurboCAD kan måle i forskellige 
måleenheder (inches, meter, milli- 
meter, osv), det vælger man, når 
man installerer programmet, men 
det kan til enhver tid ændres. Ved 
installationen bliver man spurgt, 
om man vil installere på hard- el- 
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ler floppy-disk, hvilken printer 
og/eller plotter man har, skærmty- 
pe, og andet. 


TurboCAD har utroligt mange 
funktioner, blandt de mere sjæld- 
ne kan nævnes makroer og en 
regnemaskine. Der er on-line 
hjælp ved at trykke på F1. Uanset 
hvad man er igang med, får man 
udmærket hjælp omkring netop 
den ting. 


Præcisionen er en vigtig del af et 
CAD-program, og her ligger Tur- 
boCAD i den bedre halvdel. For 
eksempel, hvis man tegner en vin- 
kel, som på skærmen er 45 er 
den også 45 når man skriver den 
ud.…...selv på en matrix-printer!!! 


Man kan gemme billeder som Ba- 
sicA- (GW-Basic) og TurboPas- 
cal-programmer, hvilket er meget 
nyttigt. 


Et helt afsnit af manualen om- 
handler overførsel af billeder fra 
TurboCAD til andre programmer, 
fx. Ventura Publisher. Manualen - 
der bl.a. er oversat til Tysk og 
Spansk - fortjener megen ros, da 
den er væsentlig bedre end de 
fleste. Der er dog en enkelt fejl i 
et af de første eksempler, hvor 
nogle tal er blevet rodet rundt: 


Side 2-67 nederst står der: X-rela- 
tive -.3 Y-relative .4 men de to 
tal skal være henholdsvis -1.4 og 
3 


KONKLUSION 


Hvis man har brug for et CAD- 
program er TurboCAD så afgjort 
et godt køb. 


Det er et virkeligt godt program, 
hurtigt og pålideligt. De mange 
faciliteter, g den gode manual 
gør prisen meget rimelig. 


ET GODT RÅD: 


(Har du hard-disk, kan du eventu- 
elt springe følgede råd over. Men 
vær opmærksom på at Turbo- 
CAD ændrer i den, fil der hedder 
CONFIG.SYS, men hvis du ikke 
selv har ændret i den, behøver 
du ikke at være bekymret.) 


Lav en speciel DOS-disk til brug 
med TurboCAD på følgende må- 
de: Indsæt en tom diskette i drev 
B og en DOS-diskette i drev A og 
skriv (teksten skrevet med store 
bogstaver skal tastes ind, mens 
teksten med små bogstaver er be- 
sked til dig): 


A: 

FORMAT EB: /S 

COPY CON B:CONFIG.SYS 
BUFFERS=10 

FILES=10 

COUNTRY =045 

(tryk på F6 og enter) 

COPY KEYBDA.EXE B: 
COPY MOUSE.COM 8B: 
COPY CON AUTOEXEC.BAT 
ECHO OFF 

KEYBDA 

MOUSE 

(tryk på F6 og enter) 


Brug den nye DOS-disk hver 
gang du bruger TurboCAD - og- 
så når du installerer den. 


JAKOB PAIKIN 


arr 


Til PCW8256 / PCW8512 / PCW9512 fra STS-SOFT. 


BE STS-FILE er et fieksibelt database program opbygget efter tabeller. 
Beskrivelse : 


- Selvstændig opbygning af database. 
- 20 felter, max 255 tegn pr. post. 

- Op til 9 nøglefelter. 

- Max. poster afhænger kun af disk størrelse. 

- Søgning på alle felter, også med blindtegn. 

- Sumfelter til. beregning, moms, summation 0.8.v. 

=… Rapport-generator. 

- Udskrift til skærm/printer af definerede udskrifter, eks. 
girokort, labels, lister 0.s.v. 


STS-FINANS er et sikkert og pålideligt finanssystem som i dag kører i over 
100 versioner over hele landet, bla. hos flere revisorer. 


- 9500 konti, 13500 bilag afhængig af disk. 
- Plads til 9 regnskaber på samme diskette. 

Fri opbygning af kontoplan, eller benyt en af de 2 
-……medleverede, for selvstændige/foreninger: 
Automatisk momspostering. 

» Udskrift af kontoplan, bilagsliste, kontoudtog, 

- saldobalance og regnskabsoversigt på skærm/printer. 


Pris 998,- 


STS-SOFT Tlf. 01 19 10 53. 
Theklavej 35 efter kl. 17.00. 
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COHPUTER 
TILBEHØR 
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Løsningen sendes til ABC, Harboørevej 1, 7680 Thyborøn. 
Blandt de rigtige løsninger trækkes der lod om 1 gavekort på kr. 500,- hos PC Data Consult, Thyborøn. 
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PRISKUN 4.995, 


excl. moms 


€ => Schneider 


| uropæisk topklasse. Uovertruffen tysk 

I kvalitet og design i BMW-klassen. 

I Schneider Euro PC er forsynet med 
MS-DOS 3.3 styresystem, og er den ideel- 
le PC for førstegangsbrugeren. 

Nem og enkel at betjene, ubesværet start, 
”indgangsdøren” til den store EDB-verden. 
Schneider EuroPC leveres komplet med 
monitor, integreret softwarepakke og MS- 
DOS 3.3 industristandard. 

Schneider EuroPC — er den bedste af sin 
art. 


Tekniske specifikationer 

8088-1 Micro processor-9.54 MHz CPU 
clock frequency - 512 Kb RAM (kan udvides 
til 640 Kb)-32 Kb ROM-37,” (720 Kb) 
diskdrev indbygget i tastaturet - Tilslutning 
for ekstra 3%,” (720 Kb) eller 5%,” (360 Kb) 
diskdrev - Tilslutning for extern 20 Mb 
Harddisk - Parallel printer port- Seriel 


port: Port for mus eller joystick-86 tasters 
AT tastatur-12" Monochrome monitor 
(amber) Hercules. Opløsning: 720x348 
punkter-14'" Farve monitor (CGA). Opløs- 
ning: 640x200 punkter (4 farver). 320x200 
punkter (16 farver) - MS-DOS 3.3 Operativ- 
system -MicroSoft WORKS 


Distributør i Danmark: 


BALLING COMPUTERS A/S 


Gilleleje Hovedgade 13 — 3250 Gilleleje 
Tlf. 02 30 36 66. Fax: 02 30 23 91 


Anviser nærmeste forhandler. 


